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EXPERIENCIA Y PRACTICAS EN LOGO 


2 Los operadores aritméticos 


ODOS sabemos que con el 
ordenador podemos efec- 
tuar operaciones de cálculo 
de todo tipo a velocidades 
considerablemente altas; al- 
gunas de estas operaciones 
las expresamos a través de 
operadores aritméticos. 
Con el LOGO podernos escribir expre- 
siones del tipo: 


4+5 


en donde relacionamos la constante 4 con la 
constante 5 a través del operador +. 

Este tipo de relaciones forman las ex- 
presiones aritméticas. Los datos a relacionar 
son los operandos; pueden ser constantes nu- 
_ méricas (datos fijos), variables numéricas 
(nombres que almacenan valores), funciones, 
o a su vez otras expresiones. 

El resultado de estas expresiones pue- 
de ser: 

— El dato que enviamos a un procedi- 
miento con entrada 


? CUADRADO 4 +6 


10 será el valor que le pasamos al procedi- 
miento CUADRADO. 


? CIRCULO 10 + :1 


el dato que pasamos a CIRCULO es 10 más el 
valor que tenga la variable :L. 

— El dato que acompaña a una primi- 
tiva 

? AVANZA 17 +7 
la Tortuga avanzará 24 pasos. 


— Un dato que queremos que aparez- 
ca en pantalla ó 


? ESCRIBE 234 + 566 


aparecerá en la pantalla el número 800. 
Entre el operador y los operandos es 
conveniente dejar siempre un espacio en 
blanco. Un número negativo lo indicaremos sin 
dejar espacio entre el signo - y el número (-3). 
Los operadores aritméticos son cuatro. 


+ SUMA 

- RESTA 

* MULTIPLICACION 
/ DIVISION 


Hay dos formas de escribir las opera- 
ciones aritméticas, nosotros ahora sólo vamos 
a ver una de ellas, la llamada escritura infija, 
que corresponde a la que estamos acostum- 
brados a ver y a utilizar. 


Esritura infija: los operadores se colo- 
can entre los operandos. 


Este tipo de expresiones tienen un or- 
den de prioridad para cuando contienen a va- 
rios operadores diferentes. 

Cuadro de prioridades. 


e 
EE 


Si los operadores de una expresión tie- 
nen la misma prioridad, ésta se evaluará de iz- 
quierda a derecha. 


? ESCRIBE 10 + 20 — 40 + 50 


40 
? ESCRIBE 40 +5* 90 
490 

- ? ESCRIBE 24+5-3*10 
-10 
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? ESCRIBE 25 /5+40* 17 
685 

? ESCRIBE 36*5/6+4 
34 


Si, por ejemplo, en esta última expre- 
sión lo que queremos es calcular 36 * 5 y el re- 
sultado de dividirlo entre 6 + 50, lo haremos 
utilizando los paréntesis. 


? ESCRIBE (36 * 5) / (6 + 4) 
18 


Como has podido comprobar, los parén- 
tesis tienen prioridad a cualquiera de los ope- 
radores. 


ESCRIBE (-3 + 9) / (“5 * 2) 
2.4 

? ESCRIBE 40 / 10 / (5* 2) 
0.4 


Por último, te exponemos un ejemplo 
para que observes y compruebes con tu orde- 
nador la importancia que tiene escribir bien 
una expresión aritmética. 


? ESCRIBE 24+5 -3 *10 
29 
NO SE QUE DEBO HACER CON -30 


Entiende -3 como un número negativo. 


? ESCRIBE 24 +5-3* 10 

29 

NO SE QUE DEBO HACER CON -30 
? ESCRIBE 24+5 - 3* 10 

=1 

? ESCRIBE 24 + 5 +-3* 10 

=] 


Estas últimas son correctas, y aunque 
expresadas de distinta forma, dan el mismo 
resultado. 

Una utilidad de los paréntesis es clari- 
ficar las expresiones; la operación anterior po- 
demos escribirla así: 


? ESCRIBE (24+25) + (-3) * 10 


? ESCRIBE (24+5) + (-3*10) 


2 Practica con las expresiones 
aritméticas 

Los cuatro procedimientos con entrada 
que a continuación exponemos están relacio- 
nados entre sí, ya que todos reciben el mismo 
dato. 


POLÍGONOS dibuja un polígono regular 
de :N lados y de longitud de lado :N * 4 


? PARA POLÍGONOS :N 
> REPITE :N[ AV:N4GD360/:N] 
> FIN 


CIRCULO dibuja un círculo cuyo tama- 
ño depende del valor de la variable :L 


? PARA CIRCULO :L 
> REPITE 36 [AV :L GD 10] 
> FIN 


TRIANGULO dibuja un triángulo equilá- 
tero de lado :L * 10 


? PARA TRIANGULO :L 
> REPITE 3 [AV :L* 10 GD 120-] 
> FIN 


DIBUJO inicializa la pantalla, determina 
la posición de los dibujos y llama a los proce- 
dimientos que los realizan. Es también un pro- 
cedimiento con entrada, el valor que recibe la 
variable :L cuando es llamado el procedimien- 
to, es el que luego reciben los otros tres proce- 
dimientos llamados. 


PARA DIBUJO :L 
PM 


OT 

BP 

GI 90 

SL 

PONY -30 

PONX -30 

BL 

POLIGONOS :L 
L 


PONY COORY + 15 
BL 
CIRCULO :L 

L 


PONX COORX + 40 
PONY COORY + 10 
BL 


VVWVWVVVWVVVVVVVYVVVV> 


No obtenemos el mismo resultado utilizando las 
mismas teclas dentro y fuera del editor. 


> TRIANGULO :L 
> FIN 


Observa que utilizamos como operan- 
dos funciones como COORX y COORY. 

Ejecuta el dibujo dando a :L valores di- 
ferentes. 


? DIBUJO 5 


Fig. 1. 


? DIBUJO 6 
? DIBUJO 7 


Si das a :L valores que estén fuera del 
intervalor [3 9], el dibujo que te aparecerá en 
la pantalla seguramente no corresponderá a lo 
que pretendíamos dibujar. 

Para el SPECTRUM haz lo siguiente: 

Suprime en el procedimiento DIBUJO la 
orden PM. 

Cambia las siguientes órdenes: 


OT por ET 
BL por CL 
PONY COORY por PONY YCOOR 
PONX COORX por PONX XCOOR 


Este otro ejemplo dibuja una casa, cuya 
altura depende del valor que le pasemos al 
procedimiento CASA cuando lo ejecutemos. 

El procedimiento no está preparado 
para que varíe la anchura de la casa, porque 
o bien tendríamos que hacer cálculos excesi- 
vamente largos con la variable que establece 


la altura, o bien pasarle a CASA otra variable 


que estableciera la anchura de la casa. 

CASA inicializa la pantalla y dibuja la 
casa. Para dibujar las ventanas llama al proce- 
dimiento VENTA. 


? PARA CASA :L 
> OT 

> BP 

> CENTRO 


Los paréntesis tienen la 


BL 

REPITE 2[ AV :L GD 90 AV 38 GD 
90 ] 

AV ::L 

GD 50 AV 25 

GD 80 AV 25 

SL 

PONPOS[ 150] 

BL 


PONRUMBO 0 

AV:L/4 

REPITE 18 [AV 1 GD 10] 
AV:L/4 

SL 

PONX 5 

PONY :L - (L / 3) 

BL 

PONRUMBO 90 

VENTA :L 


VVWVWVVVVWVVVWVWVVVVVWVVVVV VV 


VENTA es un procedimiento con entra- 
da, ya que la altura de las ventanas depende 
del valor que demos a la altura de la casa. 


? PARA VENTA :L 
> REPITE 2[AV 7 GI 90 AV :L /6 GI 90] 
> FIN 


Observa que en estos procedimientos 
operamos continuamente con operandos va- 
riables. 

Para que te aparezca bien el dibujo en 
la pantalla te aconsejamos darle al procedi- 
miento CASA valores comprendidos entre 10 
y 70. 

Por ejemplo: 


? CASA 40 


Fig. 2. 


máxima prioridad. 
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Para el SPECTRUM haz lo siguiente: * 


OT por ET 
BL por CL 


2 Consigue infinitos dibujos 


? PARA POLI :N 

> BP 

> SL 

> PONX '(N * 2) 

> BL 

> REPITE: N [AV 20 REPITE 5 [ GI 360 
/58 AV 20 ] GD 360 / :N] 

> FIN 


Ejecútalo tecleando: 
? POLI 5 


Este procedimiento dibuja un polígono 
regular de :N lados: cada lado es un pentá- 
gono. 


Fig. 3. 


? PARA POLIGO :N 

> BP 

> SL 

> PONX -(N * 2) 

> BL 

> REPITE :N [ AV 20 REPITE 6 [ Gl 360 
/6 AV 20] GD 360 / :N ] 

> FIN 


Para ejecutarlo: 
? POLIGO 6 


Dibuja un polígono regular de :N lados: 
cada lado es un hexágono. 


Si observas detenidamente los dos pro- 
cedimientos anteriores descubrirás que pode- 
mos conseguir hacer lo mismo y más con un 
solo procedimiento. 


y 7 
hi A 
Vila ( 


PMF AAA UN EY PSA 
£ Cia) LA AE LAS LI Y 0ALWAL 


Fig. 4. 


? PARA POLÍGONOS :N 

> BP 

> SL 

> PONX -(N * 2) 

> BL 

> REPITEN: [ AV 20 REPITE :N [CI 360 
/¿¡N AV 20]CD 360 /:N ] 

> FIN 


Prueba que es cierto ejecutando el pro- 
cedimiento con valores distintos. 


? POLIGONOS 5 
? POLIGONOS 6 
? POLIGONOS 7 


Con los siguientes procedimientos po- 
demos también dibujar gran cantidad de figu- 
ras distintas. 

Utilizamos dos procedimientos. El pri- 
mero sitúa a la Tortuga en la posición de co- 
mienzo y repite 8 veces la llamada a otro pro- 
cedimiento que dibuja una figura geométrica 
cuyo número de lados lo determina el valor de 
la variable LADOS, variando su posición cada 
vez que termina de dibujar una. 

Pasamos el valor de la variable al pro- 
cedimiento FIGURA, desde el procedimiento 
GENERAL. 


? PARA GENERAL :LADO 

> BP 

> SL 

> GI 90 AV 60 GD 90 

> BL | 

> REPITE 8 [ FIGURA ¿LADOS AV 30 
GD 45 SL AV 30 BL ] 

> FIN 

? PARA FIGURA ¡LADO 

> REPITE :LADO [AV 30 GD 360/ 
LADO ] 

> FIN 


Si ejecutamos el procedimiento GENE- ? 
RAL dando distintos valores a la variable LA- 
DOS, obtenemos los siguientes dibujos: 


GENERAL 10 


? GENERAL 3 
Fig. 9. 
Con los siguientes procedimientos, ob- 
AO tenemos el dibujo, sobre unos ejes, de dos pa- 
AE res de rectas que se cortan en un punto. 
? GENERAL 4 Primero definimos el procedimiento 


Fig. 6. 
.? GENERAL 5 


Fig. 7. 
? GENERAL 6 


V VVWVY?>VVVVVVWVVWVVVVVVVVVV" 


que dibuja los ejes. Para hacer las escalas tan- 
to horizontal como vertical, definimos otro pro- 
cedimiento (ESCALAR), con una entrada que 
determina, según el eje, las veces que hay que 
repetir las rayas. Este es llamado desde el pro- 
cedimiento EJES. 


PARA EJES 

SL 

PONPOS [ '100 0 ] 
BL 


PONPOS [ 100 0] 
SL 
PONPOS [ 0 -60 ] 
BL 


PONPOS [ 0 60 ] 
SL 


PONPOS [ -100 0 ] 
PONRUMBO 90 
ESCALAR 19 

SL 

PONPOS [ 0 -60 ] 
PONRUMBO 0 
ESCALAR 11 

FIN 


PARA ESCALAR :R 

AV 10 Gl 90 

RE 2 BL 

REPITE :R[ AV 4 RE 4 GD 90 SL 
AV 10 GI 90 BL ] 


FIN 
Una vez que tenemos los ejes, definimos 
Fig. 8. otro procedimiento para dibujar las rectas. En 
E 2) EN PIO Sn Y «e e ¡»A ua He YE DO E PAS — p! » y pa pon 
FOdel asignar un valor a una variable e 


10 . 7 WET FPUE AA ES 
IAT 7 PIFI MIA a 
LALA ES LE pr EL 64 LS 23 El 

pl Ñ 


9 


.350 £ a 
utilizado en otro 
uriiizado en otro. 
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este caso, indicamos los puntos extremos de 
cada una de ellas. 

Aparecen dos rectas sobre los ejes que 
permanecen unos segundos en pantalla. Lue- 
go desaparecen y aparecen otras dos 


VVWVVVVWVVVVVVVVVVVVVVVVV> 


PARA RECTAS 
BP 


PONPOS [ 40 40 ] 
BL 

PONPOS [ -30 -30 ] 
SL 


PONPOS [ 50 -20 ] 
BL 

PONPOS [ -20 50 ] 
ESPERA 200 


PONPOS [ -60 20 ] 
BL 

PONPOS [ 60 20 ] 
SL 

PONPOS [ -80 -30 ] 
BL 


PONPOS [20 50 ] 
FIN 


Puedes añadir más rectas con sólo indi- 
car en este procedimiento los nuevos puntos. 
Si ejecutas RECTAS: 


? 


RECTAS 


Obtendrás los dos dibujos siguientes: 


Fig. 11. 


| 
' 


1] 


2 Cuadro resumen | 

— Operadores aritméticos por | 
orden de prioridad. | 
0) paréntesis. | 
A división y multiplicación - | 
=, + resta y suma | 


2 Ejercicios 


1. 


Dibuja un circuito eléctrico. 


2. Cuadricula la pantalla definiendo un proce- 


5. 


dimiento que permita variar el tamaño de 
la cuadrícula tanto en horizontal como en 
vertical, 

Realiza el siguiente dibujo: 


¿Fig. 12. 


El siguiente dibujo lo hemos realizado di- 
bujando, en posiciones aleatorias de la pan- 
talla, 100 cuadrados cuyo tamaño guarda 
relación con dicha posición. 


Fig. 13. 


Intenta realizarlo, 

¿Son correctas las siguientes órdenes? 
— ESCRIBE 10 +5-6/(-6) + 40*8 
— AVANZA 3+6*-9 

— RE COORY +6 


Con los paréntesis clarificamos las expresiones. 


10 


— ESCRIBE CL + 10 

— GD 15 + RUMBO 

— REPITE 15 [ PONF FONDO + 1 ESPERA 
10] 


Solución a los ejercicios 
1: 


Dibujamos un circuito de tamaño y nú- 
mero componentes constante, por eso utiliza- 
mos un procedimiento sin entrada. 


PARA CIRCUITO 

BP 

SL 

PONX -50 

BL 

GD 35 AV 8 

GI 35 AV 30 

GI 35 AV 48 

GI9 AV6RE 12 AV 6 GD 90 
SL AV 4 

GI 90 BL AV 4 RE 8 AV 4 GD 90 
AV 48 GD 90 

AV 20 

GD 65 AV 4 

REPITE 3 [ Gl 130 AV 8 GD 130 AV 
8 


GI 130 AV 4 GD 65 

AV 20 

GD 90 AV 40 GI 90 
REPITE 36[ AV 2GD 10] 
SL GD 90 AV 24 

BL AV 36 

GD 90 AV 26 

FIN 


Lo ejecutamos: 
? CIRCUITO 


VVWVWVVVVV VVVVVVVVVVVVVV" 


Fig. 14. 


Primero definimos un procedimiento 
que dibuja un marco en la pantalla de 250 pun- 
tos en horizontal por 155 en vertical para limi- 
tarla. Desde este procedimiento se llama a 
otros dos que cuadriculan la pantalla, los cua- 
les utilizan una variable para determinar la an- 
chura de la cuadrícula. Esta anchura puede 
ser diferente en horizontal y en vertical. 


PARA CUADRICULA 
BP 
SL 
PONPOS [ -126 -60 ]. 
BL 


o) 


REPITE 2[ AV 155 GD 90 AV 250 GD 
90 ] 

EH 10 

EV 10 

FIN 


En este caso la anchura de la cuadrícu- 
la está fijada en 10 puntos. Si quieres variarla, 
cambia los valores que aparecen en EH y EV. 

El procedimiento EV dibuja las líneas 
verticales con una separación igual al valor de 
la variable ESC. 


PARA EH :ESC 

SL 

PONPOS [ -126 -60 ] 

PONRUMBO 0 

BL 

REPITE 250 / :ESC [ AV 155 RE 155 
GD 90 AV :ESC GI 9] 

FIN 


VVV VVVVV 


ME ENCEINTE 


El procedimiento EV dibuja las líneas 
horizontales con una separacion igual al valor 
de la variable ESCI. 


PARA EV 

SL 

PONPOS [-126 -60] 

PONRUMBO 90 

BL 

REPITE 155/ :ESC1 [ AV 280 RE 250 
GI 90 AV :ESCl GD 90 ] 

FIN 


Mo VUNMNONE YN 


3: 


. Para dibujar el chip utilizamos dos pro- 
cedimientos, uno que dibuja el cuerpo y otro 


El dato que le enviamos a un procedimiento con 
entrada, puede ser toda una expresión aritmética. 


11 
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que dibuja las patillas, y que es llamado des- 
de el primero. 


PARA CHIP 


PONPOS [-10 0] 
BL 


REPITE 2 [AV 8 GD 90 AV 20 GD 90] 
AV 8 GD 45 

AV 50 GD 45 

AV 20 GD 135 

AV 50 Gl 45 

AV 8 Gl 135 

AV 50 Gl 45 

AV 8 

PATILLAS 

FIN 


? PARA PATILLAS 

> RE 3 CI 135 

SL 

> AV 6 CD 45 

> REPITE 8 [BL RE 5 GI 90 AV 8 
GD 90 AV 1 GI90 RE 7 
GI 90 RE 4 SL RE 1 GD 135 
AV 4 GD 48] 

> SL GD 9 AV8 

> BL RELLENA 

> FIN 

> FIN 


VVUVWVWVVVVVVVVVVV"> 


V 


Fijamos el número de patillas en ocho. 
Para ejecutarlo: 


? CHIP 
4: 


El procedimiento DIBUJO inicializa la pantalla 
y llama al procedimiento CUADRADO pasán- 
dole a la variable :A de dicho procedimiento 
un Valor aleatorio. 


? PARA DIBUJO 

> BP 

> REPITE 100 [| CUADRADO AZAR 180 ] 
> FIN 


CUADRADO dibuja un cuadrado cuyo 
lado es el valor de la variable :A dividido en- 


”> £ ¿0 s A "L 
UU FDO un mnarratiwn ln inr7 
Un número negativo lo ina 


espacio entre el signo - 


: ta 423 3171 
Es conveniente aejar un 


tre 8 (:A variable de entrada del procedimien- 
to), en las coordenadas indicadas por PONX y 


- PONY. 


PARA CUADRADO :A 

SL 

PONX :A - 90 

PONY :A - 90 

BL 

REPITE 4[ AV:A/8GD90] 
FIN 


VVVWVVV" 


— ESCRIBE 10+5-6/(6)+40*8 


CORRECTO. El resultado de la opera- 
ción es 336 


— AVANZA 30+6*-9 


INCORRECTO. El signo menos está de- 
trás de un signo de multiplicación y entre él 
y el nueve hay un espacio; por tanto, la multi- 
plicación no es por -9. 

El ordenador mostrará un mensaje de 
error: 

Faltan datos para - 


Sería correcto: 


? AVANZA $0 + 60 * -9 
— RE COORY +6 


CORRECTO. La Tortuga retrocederá el 
valor que tenga COORY más 6. 


— ESCRIBE CL + 10 


- CORRECTO. LOGO nos devolverá la 
suma del código de color del lápiz más 10. 


— GD 15 + RUMBO 


CORRECTO. La Tortuga girará a la de- 
recha 15 más el rumbo que en este momento 
lleve. 


— REPITE 15 [PONF FONDO + 1 ESPE- 
RA 10] 


CORRECTO. Con este REPITE conse- 
guimos variar el color de fondo de la pantalla 
15 veces. 


2 e y 0 Py 5 Íona a y 
espacio entre el 


operador y los operandos. 
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1 Control de movimiento 


NA vez que hemos aprendi- 
do cómo mover cualquier 
tipo de figuras, ya sean sen- 
cillas o complejas, por la 
pantalla, nos vamos a meter 
en el mundo del control del 
movimiento. 

Pero ¿qué es lo que 
entendemos por control de movimiento? En 
casi todos los programas con animación gráfi- 
ca, el usuario tiene que controlar, mediante el 
teclado, joystick u otro periférico, el movi- 
miento de algún gráfico por la pantalla. El pro- 
grama tiene que estar preparado para poder 
leer de dicho periférico y para convertir las 
órdenes que le dé el usuario en movimientos 
de una cierta figura. 

Así, pues, vamos a ver cómo podemos 
hacer que el usuario controle el movimiento 
de figuras por la pantalla mediante el uso del 
teclado, del joystick, del ratón o de cualquier 
otro periférico. 

Lo primero que vamos a ver es un pro- 
grama que nos permitirá mover un asterisco 
por toda la pantalla utilizando las siguientes te- 
clas: 


P - Ir hacia la derecha. 
O - Ir hacia la izquierda. 
Q - Ir hacia arriba. 

A — Tr hacia abajo. 


Fig. 1. Las teclas que controlan el movimiento del asterisco es- 
tán distribuidas de forma que sean cómodas para el usuario. 


El programa controla si hemos llegado 
al borde de la pantalla y se para en caso afir- 
mativo. Dicho programa es el 1. 


Fig. 2. Si el asterisco se sale de la pantalla, el ordenador dará 
un mensaje de error. Por ello, en nuestros programas tenemos 
que prever que esto no ocurra. 


100 REM oooO lolo lololok 
110 REM * MOVIMIENTO CONTROLADO DE UN x 
120 REM * ASTERISCO USANDO LAS TECLAS *x 


130 REM x* 

140 REM x P - DERECHA 
150 REM x*x O - IZQUIERDA 
160 REM * Q - ARRIBA 
170 REM x* A - ABAJO 

180 REM * 


* 


XK XA kk 


190 REM AdoaSaoRiddlaldloloalaloldlaloloialolololololojolookk 


250 LET Y=10 
260 LOCATE Y1,X1 
270 PRINT * ” 
280 LOCATE Y,X 
290 PRINT "*"; 
300 A$=INKEYS 


310 IF A$<>“P" AND A$<>"0" AND A$<>"Q" AND A$<>"A" THEN GOTO 300 


320 LET X1=X 

330 LET Yi=Y 

340 IF A$="P" THEN LET X=X+1 
350 IF A$="0"” THEN LET X=X-1 
360 IF A$="Q" THEN LET Y=Y-1 
370 IF A$="A" THEN LET Y=Y+1 
380 IF X>40 THEN LET X=40 
390 IF X<1i THEN LET X=1 

400 IF Y>24 THEN LET Y=24 
410 IF Y<1 THEN LET Y=1 

420 GOTO 260 


Las modificaciones que hay que reali- 
zar para utilizar el programa en ordenadores 


que no sean IBM o compatibles son las que 


aparecen a continuación. 


COMMODORE: 


210 PRINT CHR$(147) 

260 POKE 214, Y1:POKE 211,Y1 
280 POKE 214,Y:POKE 211,X 
300 GET A$ 

380 IF X>39 THEN LET X=39 
390 IF X<0 THEN LET X=0 
410 IF Y<0 THEN LET Y=0 


AMSTRAD: 


260 LOCATE X1,Y1 
280 LOCATE X, Y 
400 1F Y>25 THEN LET Y=25 


MSX: 


260 LOCATE X1,Y1 
280 LOCATE X, Y 


SPECTRUM: 


260 PRINT AT Y1,X1; 

280 PRINT AT YX; 

380 IF X>31 THEN LET X=31 
390 IF X<0 THEN LET X=0 
400 1F Y>21 THEN LET Y=21 
410 1F Y<0 THEN LET Y=0 


Ahora vamos a ver el funcionamiento 
del programa línea a línea para poder enten- 
der su funcionamiento. 


Líneas 100 a 200. Cabecera del progra- 
ma en líneas REM. En ellas se dice, aparte de 
la intención del programa, qué teclas hay que 
utilizar para que la estrella pueda moverse por 
la pantalla. 

Línea 210. Borramos la pantalla. 

Línea 220. Asignamos a la variable nu- 
mérica X1 el valor 10. En esta variable alma- 
cenaremos el valor de la columna en la cual 
se encontraba el asterisco antes de que el 
usuario pulse algunas de las teclas que permi- 
ten el movimiento. 

Línea 230. Se asigna a la variable Yl el 
valor 10. Esta variable tiene la misma función 
que Yl, pero se encarga de almacenar la fila. 

Línea 240. Almacenamos en X la colum- 
na donde se posicionará el asterisco al princi- 
pio del movimiento y desde el cual empeza- 
remos a moverlo. 

Línea 250. Se asigna a la variable Y el 
valor 10. Esta variable, junto con la X, serán las 
que nos digan en qué lugar se encuentra el as- 
terisco en un momento determinado o, lo que 
es igual, dónde vamos a imprimir el asterisco 
dentro de un momento. 

Línea 260. Colocamos el cursor en la 
posición Y1,X1 de la pantalla (X1,Y1 en el 
AMSTRAD y MSX) para más tarde imprimir un 
espacio. La primera vez que se ejecuta esta 
instrucción, aparentemente no hace nada inte- 
resante, pero a partir de la segunda, se encar- 
ga de colocar el cursor en la antigua posición 
donde se encontraba el asterisco para bo- 
rrarlo. 


Línea 270. Imprimimos un espacio en 
blanco. Este será el que borre el asterisco, 

Línea 280. Colocamos el cursor en la 
posición Y,X de la pantalla (X,Y en el AMS- 
TRAD y MSX) para más adelante imprimir en 
dicha posición el asterisco, 

Línea 290. Imprimimos el famoso aste- 
risco (*), 

Línea 300. Miramos si se ha pulsado al- 
guna tecla desde el teclado. Si se ha pulsado 
alguna, ésta quedará almacenada en la varia- 
ble alfanumérica A$. Si no se pulsó ninguna te- 
cla, A$ será igual a la cadena vacía (A$="). 

Línea 310. En esta línea nos asegura- 
mos de que la tecla que ha pulsado el usuario 
es una de las permitidas. Por ello, se pregun- 
ta que si A$ no es igual a P y, a la vez, no es 
igual a O y tampoco igual a Q ni a A, entonces 
volver a mirar si se ha pulsado otra tecla. El 
programa estará moviéndose entre esta línea 
y la anterior hasta que el usuario pulse una de 
las teclas permitidas. 

Línea 320. Como ya se ha pulsado una 
de las teclas que nos van a permitir el movi- 
miento del asterisco, almacenamos en Xl la 
, columna donde se encuentra actualmente. 

Línea 330. Almacenamos en Y]1 la fila 
donde se encuentra el asterisco. Esta línea y 
la anterior son las que nos van a permitir, 
cuando imprimamos el asterisco en su nueva 
posición, recordar dónde se encontraba antes 
para poder borrarlo. 

Línea 340. A partir de esta línea empie- 
za el reconocimiento de la tecla pulsada, En 
esta primera línea se pregunta si el usuario 
pulsó la tecla P. Esta es la que le dice al pro- 
grama que mueva el asterisco un lugar hacia 
la derecha. Por ello, si se pulsó dicha tecla au- 
mentamos el valor de la variable X en uno 
(LET X=X+1). Con ello aumentamos en uno la 
columna Y, cuando volvamos a la línea 280, el 
asterisco se imprimirá un lugar hacia la de- 
recha. 


Línea 350. Preguntamos si se ha pulsa- 
do la tecla 0. En caso afirmativo, es que el 
usuario quiere moverse un lugar hacia la iz- 
quierda. Para movernos hacia la izquierda hay 
que decrementar la posición del asterisco en 
uno (LET X=X-1) para imprimirlo en su nueva 
posición en la línea 280. 


Línea 360. En esta línea preguntamos si 
se ha pulsado la tecla Q. En caso afirmativo (el 
usuario desea moverse hacia arriba) decre- 
mentamos en uno el valor de la variable Y 
(LET Y=Y-1). 
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Línea 370. Por fin, si se ha pulsado la te- 
cla A porque el asterisco ha de moverse ha- 
cia abajo, incrementamos el valor de la fila (de 
Y) en uno (LET Y=Y+1). 

Una vez que sabemos en qué dirección 
tiene que moverse el asterisco y que tenemos 
almacenada dicha posición en las variables X 
e Y, vamos a comprobar que dicha posición no 
se encuentra fuera de la pantalla. 


Línea 380. Si resulta que el asterisco ha 
llegado al borde derecho de la pantalla y lo 
ha sobrepasado, entonces hacemos que X ad- 
quiera el valor de la posición más a la dere- 
cha de ésta. En el caso del IBM, del AMSTRAD 
y del MSX esta posición corresponde a la co- 
lumna 40 (si estamos en el modo de 40 colum- 
nas por línea). Si resulta que X es mayor de 
40, entonces estamos fuera de la pantalla, por 
lo que tenemos que hacer que X valga 40. En 
el SPECTRUM, como sólo tiene 32 columnas y 
la última está numerada como la 31, entonces 
tenemos que cambiar esta línea como se ha 
visto un poco más arriba. En el COMMODORE 
también ocurre algo parecido, ya que, aunque 
tiene 40 columnas por línea, éstas están nume- 
radas del 0 al 39. 


Línea 390. Comprobamos que el aste- 
risco no va a salirse de la pantalla por la iz- 
quierda. En caso de hacerlo, damos a la varia- 
bles X el valor de la primera columna (0 ó 1, 
según los ordenadores). 


Línea 400. Miramos si el asterisco va a 
salirse por la parte de abajo de la pantalla. En 
caso afirmativo, hacemos que se quede en la 
última línea. Esta línea es: la 24 para COMMO- 
DORE, MSX, AMSTRAD y IBM; la 21 para 
SPECTRUM, 

Línea 410. Para terminar, en esta línea 
miramos si el asterisco va a salirse por la par- 
te superior de la pantalla. En caso afirmativo, 
hacemos que la variable Y tenga el valor de 
la primera línea (0 ó 1, según el ordenador). 

Línea 420. Hacemos que el control del 
programa se transfiera a la línea 260. A partir 
de esta línea colocamos el cursor en la anti- 
gua posición del asterisco, lo borraremos 
(pues todavía se encuentra ahí), colocaremos 
el cursor en la nueva posición, imprimiremos 
el asterisco y volveremos a esperar hasta que 
se pulse una tecla de las permitidas para mo- 
ver el asterisco de nuevo. 

Este programa no realiza ninguna 
función espectacular, pero ilustra perfecta- 
mente cómo hay que realizar la lectura del te- 
clado para hacer que un objeto se mueva por 
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la pantalla de acuerdo con las órdenes del 


usuario. 


El programa tiene un pequeño fallo. 
Este consiste en que si pulsamos simultánea- 
mente las teclas Q y P, el asterisco no se des- 
plaza con movimiento diagonal (en este caso 
sería movimiento diagonal positivo-negativo), 
sino que se mueve en la dirección de la última 
tecla pulsada. La mejor manera de arreglar 
esto es crear otro programa que contemple la 
pulsación de otras teclas para el movimiento 
diagonal. El programa 2 puede ser un ejem- 
plo, de cómo hacerlo. 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 


$o" 


360 
370 
? 380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 


* 


KA KA A E A E OK 


Fig. 3. Con el programa 1 sólo podíamos mover el cursor ha- 
cia arriba, abajo, derecha e izquierda, pero con el programa 2 
también lo podremos mover en las cuatro diagonales. 


A$<>"A" AND AS$<>"W" AND A$<>"X" AND A$<>"Q” AND A$<>"E" AND A 


ES 
REM * MOVIMIENTO CONTROLADO DE UN x 
REM * ASTERISCO USANDO LAS TECLAS * 
REM x 

REM x P - DERECHA 

REM * O - IZQUIERDA 

REM * Q - ARRIBA 

REM * A - ABAJO 

REM * Q - ARRIBA-IZO. 

REM *x E - ARRIBA-DER. 

REM * C - ABAJO-DER. 

REM * Z - ABAJO- IZQ. 

REM *x 

REM MaS dalla jojojo jo joolaJojalojojoK 
REM 

CLS 

LET X1=10 

LET Y1=10 

LET X=10 

LET Y=10 

LOCATE Y1,X1 

PRINT 

LOCATE Y,X 

PRINT "x"; 

A$=INKEY$ 

IF A$<>"D" AND 

C" AND A$<>"Z" THEN GOTO 340 

LET X1=X 

LET Y1=Y 

IF A$="D" THEN LET X=X+1 

IF A$="A" THEN LET X=X-1 

IF A$="W" THEN LET Y=Y-1 

IF A$="X" THEN LET Y=Y+1 

IF A$="Q" THEN LET X=X-1:LET Y=Y-1 
IF A$="E" THEN LET X=X+1:LET Y=Y-1 
IF A$="C" THEN LET X=X+1:LET Y=Y+1 
IF A$="Z" THEN LET X=X-1:Y=Y+1 

IF X>40 THEN LET X=40 

IF X<1 THEN LET X=1 

IF Y>24 THEN LET Y=24 

IF Y<1 THEN LET Y=1 

GOTO 300 


Las modificaciones que hay que hacer 
para COMMODORE, AMSTRAD, MSX y SPEC- 
TRUM son las siguientes: 
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COMMODORE: 


250 PRINT CHR$(147) 
300 POKE 214, Y1:POKE 211,X1 


320 POKE 214, Y:POKE 211,X 
340 GET A$ 

460 1F X>39 THEN LET X=39 
470T1F X<0 THEN LET X=0 
490 1F Y <0 THEN LET Y=0 


AMSTRAD: 


300 LOCATE X1,Y1 
320 LOCATE X,Y 
480 IF Y>25 THEN LET Y=25 


MSX: 


300 LOCATE X1,Y1 
320 LOCATE X,Y 


.- SPECTRUM: 


300 PRINT AT Y1,X1; 

320 PRINT AT Y,X; 

460 IF X>31 THEN LET X=31 
4701F X<0 THEN LET X=0 
480 1F Y>21 THEN LET Y=21 
490 1F Y <0 THEN LET Y=0 


Como puede verse en el programa, éste 
es muy parecido al anterior. Las únicas dife- 
rencias que hay entre ambos son: 


— En la línea 350 se pregunta si la te- 
cla que ha pulsado el usuario está dentro del 
siguiente grupo: 


DIR MW XIO E: iZ 


— Se han aumentado las líneas que 
diagnostican la dirección en la que se tiene 
que mover el asterisco. Esto es necesario por- 
que han aumentado el número de teclas que 
pueden usarse. 


— Las teclas que se utilizan para mover 
el asterisco son distintas que las del programa 
anterior. Las del primer programa estaban 
puestas de manera que con una mano contro- 
lábamos el movimiento izquierda-derecha y 
con la otra arriba-abajo. Como ahora tenemos 
ocho teclas para pulsar, se han puesto todas 
juntas, pero en la dirección del movimiento 
que implica cada una. Se puede aprovechar el 
momento para recomendar al lector que, a la 
hora de hacer sus propios programas de ani- 
mación, busque unas teclas que sean cómodas 
de manejar por el usuario y no poner unas con 
las cuales sea más fácil hacer el programa. De 
todas maneras, hablaremos de esto más ade- 
lante. 

Las teclas que nos permiten mover el 
asterisco por la pantalla son las siguientes: 


W - Movimiento hacia arriba.- 


X - Movimiento hacia abajo. 

D - Movimiento hacia la derecha. 

A - Movimiento hacia la izquierda. 

Q - Movimiento diagonal arriba-iz- 


quierda 

E - Movimiento diagonal arriba-dere- 
cha 

C - Movimiento diagonal abajo-dere- 
cha 


Z. — Movimiento diagonal abajo-izquier- 


Fig. 4. Así están dispuestas las teclas, que nos permiten mover 
el asterisco, en el teclado de tu ordenador 


Los dos programas que hasta ahora he- 
mos visto, aunque funcionan, no son ningún 
alarde de programación, pues ni ahorran me- 
moria ni hacen las cosas todo lo rápido que se- 
ría necesario. Estos dos programas se hicieron 
así porque para aumentar la velocidad del 
programa es necesario utilizar una serie de 
comandos que ordenadores como el SPEC- 
TRUM y el COMMODORE no tienen. A conti- 
nuación se da un programa que nos permite 
mover el asterisco por la pantalla, pero reali- 
zado de una forma más lógica y más bonita. 
Aunque se van a incluir las modificaciones 
para SPECTRUM y COMMODORE, los usua- 
rios de estos ordenadores podrán apreciar 
que para ellos esta nueva solución no es tan 
buena. 


100 REM ARSS ION OK 
110 REM * MOVIMIENTO CONTROLADO DE UN * 
120 REM * ASTERISCO USANDO LAS TECLAS x* 


130 REM * * 
140 REM * P - DERECHA * 
150 REM * O - IZQUIERDA * 
180 REM xk Q - ARRIBA * 
170 REM x A - ABAJO * 
180 REM * Q - ARRIBA-IZ0. * 
190 REM x E — ARRIBA-DER, x* 
200" REM * C — ABAJO-DER. xk 
210 REM * Z - ABAJO-1ZQ. * 
220 REM x* k 
230 REM Aaa joloalolola jalo lojojolojokok 
240 REM 

250 CLS 
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260 LET Xi=10 

270 LET Y1=10 

280 LET X=10 

290 LET Y=10. 

300 REM 

310 REM *x*x* PROGRAMA GENERAL Axkx* 
320 REM 

330 LOCATE Y1,X1 

340 PRINT " " 

350 LOCATE Y,X 

360 PRINT "x"; 

370 AS=INKEYS 

380 LET A=INSTR(" DAWXQECZ”,A$) 
390 IF A<2 THEN GOTO 370 

400 LET X1=X 

410 LET Yi=Y 

420 ON A-1 GOSUB 480,500, 520, 540,560, 580,600, 620 
430 GOSUB 670 

440 GOTO 330 

450 REM 

460 REM x*x*x* PROCESAMIENTO DE LA TECLA *x*x* 
470 REM 

480 LET X=X+1 

490 RETURN 

500 LET X=X-1 


560 LET X=X-1:LET Y=Y-1 
570 RETURN 

580 LET X=X+1:LET Y=Y-1 
590 RETURN 

600 LET X=X+1:LET Y=Y+1 
610 RETURN 

620 LET X=X-1:Y=Y+1 

630 RETURN 

640 REM 

650 REM *x*x* COMPROBACIÓN DE POSICION x*x*xk 
660 REM 

670 IF X>40 THEN LET X=40 
680 IF X<1 THEN LET X=1 
690 IF Y>24 THEN LET Y=24 
700 IF Y<1 THEN LET Y=1 
710 RETURN > 


Las modificaciones que aparecen a con- 
tinuación son las que son necesarias realizar 
para que el programa pueda funcionar en or- 
denadores distintos del IMB, PC, XT, AT y 
compatibles. Te volvemos a repetir que, aun- 
que aparecen las modificaciones para SPEC- 
TRUM y COMMODORE, este programa no da 
buenos resultados en ellos. 


COMMODORE: 


250 PRINT CHR$(147) 
330 POKE 214, Y1:POKE 211,X1 
350 POKE 214, Y:POKE 211,X 
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370 GET A$ 

380 LEF B$=" DAWXQECZ":FOR I=1 TO 
9:IF MID$(B$,1,1)=A$ THEN LET A=I 
385 NEXT 1 

670 IF X>39 THEN LET X=39 

680 IF X<0 THEN LET X=0 

700 1F Y<0 THEN LET Y=0 


AMSTRAD: 


330 LOCATE X1,Y1 
350 LOCATE X,Y 
690 IF Y>25 THEN LET Y=25 


MSX: 


330 LOCATE X1,Y1 
350 LOCATE X,Y 


SPECTRUM: 


330 PRINT AT Y1,X1; 

350 PRINT AT Y,X; 

380 LET B$=" DAWXQECZ”:FOR I=1 TO 
9:IF B$(D=A$ THEN LET A=I 

385 NEXT 1 

420 GOSUB 460+20*(A-1) 

6701F X>31 THEN LET X=31 

680 IF X<0 THEN LET X=0 

690 IF Y<21 THEN LET Y=21 

700 IF Y <0 THEN LET Y=0 


- ¿Cuáles son las diferencias entre el ter- 

cer programa y el cuarto? Estas son: 
— En vez de usar una sentencia IF múl- 
tiple utilizamos la función INSTR para saber 
qué tecla ha pulsado el usuario. En el progra- 


.ma, segundo programa de este tomo, pregun- 


tábamos, mediante una sentencia IF, si el usua- 
rio había pulsado alguna de las teclas permi- 
tidas. En este tercer programa, gracias a la 
instrucción INSTR, podemos saberlo mucho 
antes. Esta instrucción nos dice si el conteni- 
do de la variable A$ se encuentra en la otra 
cadena alfanumérica que aparece dentro de 
los paréntesis. El resultado de esta función, 
que nosotros almacenamos en la variable nu- 
mérica. A, nos dice en qué posición de la cade- 
na se encuentra Af. 

— Otra instrucción que se utiliza es la 
que está en la línea 420. Esta sirve para trans- 
ferir el control del programa a una línea, pero 
dependiendo de un valor. Así, si la variable A 
tiene valor 2, iremos a la línea 480. Si tiene va- 
lor 3, a la 500, Con valor 4, a la 520, y así su- 
cesivamente. Esta instrucción nos daría error 
si A tuviese un valor superior al número de nú- 


meros que se encuentran después de la pala- 
bra GOSUB. 

— La tercera diferencia es que, como 
después de usar la función ON ... GOSUB ya 
sabemos a qué línea nos tenemos que ir, en el 
grupo de líneas que va desde la 460 hasta 630 
no ha sido necesario utilizar ninguna senten- 
cia IF. 

Por otra parte, se ha aprovechado para 
hacer el programa algo más bonito y estruc- 
turado mediante la utilización de subrutinas. 

Como habrán visto los usuarios del 
SPECTRUM y del COMMODORE, la razón por 
la que en estos ordenadores el programa no 
aumentaría su velocidad es porque carecen 
de la sentencia INSTR. Como ésta ha habido 
que simularla mediante un bucle, hace que el 
programa se vuelva más lento. Por otro lado, 
el hecho de que el SPECTRUM no tenga la ins- 
trucción ON ... GCOSUB no supone ningún pro- 
blema, ya que se puede hacer algo parecido 
con la ayuda de operaciones matemáticas. Por 
ejemplo, si en un programa hecho para un or- 
denador distinto del SPECTRUM nos encontra- 
mos con una línea como lá siguiente: 


ON A GOSUB 100,200,300,400,500,600 


y queremos pasar dicho programa al SPEC- 
TRUM, tendríamos que cambiar esta línea por: 


GOSUB 100*A 


Con esto se consigue que si A tiene va- 
lor 1, nos vayamos a la línea 100. Si tiene valor 
2, ala 200. Si el valor de A es igual a 3, iremos 
a la 300, y así sucesivamente. También puede 
pasar que nos encontremos con que los núme- 
ros de línea que se encuentran después de la 
sentencia GOSUB (o GOTO según los casos) no 
guarden ninguna relación matemática ni lógi- 
ca con el valor de la variable que determina 
el número de línea. Tal puede ser el caso de 
una línea como la siguiente: 


ON A GOSUB 212,343,500,12,400 


En este caso lo único que podemos ha- 
cer es cambiarla por lo siguiente: 


GOTO 212*(A=1)+343*(A42)+500(A=3)+ 
+12"(4=4)+400"(A=5) 


Esto lo que hace es lo siguiente: Si A es 
igual a uno, entonces la igualdad (A=1) es 
cierta, por lo que el ordenador responde como 
si dicha igualdad fuese un uno (1). Como las 
demás igualdades de la línea (A=2, A=3, A=4 
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y A=5) no son ciertas, el ordenador responde 
a cada una de ellas como si de un cero se tra- 
tase, con lo que nos queda la línea algo así 
como: 


GOTO 212*(1)+343*(0)+500*(0)+12*(0)+400*(0) 
o lo que es igual: 
GOTO 212 


Si A valiese cuatro (en vez de uno), to- 
das las igualdades menos (A=4) serían falsas 
y esa línea sería algo así como: 


GOTO 212*(0)+343"(0)+500*(0)+12"(1)+400"(0) 
que es lo mismo que: i 
GOTO 12 


Esto último que acabamos de decir no 
es gratuito, sino que supone una de las modi- 
ficaciones más fuertes que podemos hacerle 
aún al programa. Tal modificación consiste en 
anular el grupo de líneas que controlan si el 
asterisco ha salido de la pantalla. El programa 
4 nos muestra cómo quedaría después de qui- 
tar este grupo de líneas y de controlar la po- 
sición del asterisco mediante un truco que tie- 
ne mucho que ver con lo que acabamos de ex- 
plicar. 


Resultado 


CIERTO 


OTROS 


FALSO 


Fig. 5. 


100 REM asalalalolaoMOIala lalalala lojolaololalojalolojoloK 
110 REM * MOVIMIENTO CONTROLADO DE UN x 
190 HEM + ASTERISCO USANDO Lás TECLAS + 


130 REM * * 
140 REM x D - DERECHA * 
150 REM * A - IZQUIERDA * 
160 REM * W -— ARRIBA * 
170 REM *x X - ABAJO * 
180 REM x*x Q' —- ARRIBA-IZQ. * 
190 REM * E — ARRIBA-DER. xk 
200 REM x* C - ABAJO-DER. * 
210 REM x* Z - ABAJO-IZ0Q. k 
220 REM * xk 
230 REM A*MSSdoSSdO OSO aialdloldlalolalalo joio ojloalok 


ORDENADORES 
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240 REM 

250 CLS 

260 LET Xi=10 

270 LET Yi=10 

280 LET X=10 

290 LET Y=10 

300 REM 

310 REM x+*xx* PROGRAMA GENERAL xx 

320 REM 

330 LOCATE Y1,X1 

340 PRINT " " 

350 LOCATE Y,X 

360 PRINT "x*"; 

370 AS=INKEYS$ 

380 LET A=INSTR(" DAWXQECZ",A$) 

390 IF A<2 THEN GOTO 370 

400 LET X1=X 

410 LET Y1=Y 

420 ON A-1 GOSUB 480,500, 520, 540, 560,580, 600,620 
430 GOTO 330 

440 REM 

450 REM ***x PROCESAMIENTO DE LA TECLA *x*x 
460 REM *x** Y CONTROL DEL ASTERISCO Xxx 
470 REM 

480 LET X=X+1+(X=40) 

490 RETURN 

500 LET X=X-1-(X=1) 

510 RETURN 

520 LET Y=Y-1-(Y=1) 

530 RETURN 

540 LET Y=Y+1+(Y=24) 

550 RETURN 

560 LET X=X-1-(X=1):LET Y=Y-1-(Y=1) 
570 RETURN 

580 LET X=X+1+(X=40):LET Y=Y-1-(Y=1) 
590 RETURN 

600 LET X=X+1+(X=40):LET Y=Y+1+(Y=24) 
610 RETURN 

620 LET X=X-1-(X=1):LET Y=Y+1+(Y=24) 
830 RETURN 


Como siempre, las modificaciones que 
hay que realizar para ordenadores distintos 
del IBM son las siguientes: 


COMMODORE: 


250 PRINT CHR$(147) 

330 POKE 214, Y1:POKE 211,X1 

350 POKE 214, Y:POKE 211,X 

370 GET A$ 

380 LEF B$=" DAWXQECZ":FOR I=1 TO 
9:IF MID$(B$,1,1)=A$ THEN LET A=I 
385 NEXT 1 

480 LET X=X+1+(X=39) 

500 LET X=X-1-(X=0) 

520 LET Y=Y-1-(Y=0) 

560 LET X=X-1-(X=0):LET 
Y=Y-1-(Y=0) 
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580 LET 
Y=Y-1-(Y=0) 
600 LET 
Y=Y+1+(Y=24) 
620 LET 
Y=Y+1+(Y=24) 


X=X+1+(X=39):LET 
X=X+1+(X=39):LET 
X=X-1-(X=0):LET 


AMSTRAD: 


330 LOCATE X1,Y1 
350 LOCATE X, Y 
540 LET Y=Y+1+(Y=25) 


600 LET X=X+1+(X=40):LET 
Y=Y+1+(Y=25) 
620 LET X=X-1-(X=1):LET 


Y=Y+1+(Y=25) 


MSX: 


330 LOCATE X1,Y1 
350 LOCATE X, Y 


SPECTRUM: 


330 PRINT AT Y1,X1; 

350 PRINT AT YX; 

380 LET B$=" ADWXQECZ”:FOR I=1 TO 
9:IF B$(D=A$ THEN LET A=I 

385 NEXT 1 

480 LET X=X+1-(X=31) 

500 LET X=X-1+(X=0) 

520 LET Y=Y-1+(Y=0) 

540 LET Y=Y+1-(Y=21) 


560 LET X=X-=1+(X=0):LET 
Y=Y-1+(Y=0) 
580 LET — X=X+1-(X=31):LET 
Y=Y-1+(Y=0) 
600 LET.—— X=X+1-(X=31):LET 
Y=Y+1-(Y=21) 
620 LET X=X-1+(X=0):LET 
Y=Y+1-(Y=21) 


Como puede verse en el programa, el 
control de la posición del asterisco lo estamos 
realizando al mismo tiempo que incrementa- 
mos o decrementamos su fila y/o su columna. 
¿Qué es lo que estamos haciendo? Para verlo 
vamos a coger como ejemplo la línea 540. 


540 LET Y=Y+1+(Y=24) 


Más arriba dijimos que las operaciones 
lógicas como la que vemos entre paréntesis en 
la línea de arriba, el ordenador las evalúa y 
mira si son verdaderas o falsas. En el caso de 
ser falsa, es como si dicha igualdad fuese un 
cero. Si la igualdad es verdadera, entonces el 
ordenador le asigna el valor -1 (en el SPEC- 


TRUM es valor 1). según esto, si la igualdad 
de la línea de arriba es cierta, nos quedaría 
como: 


540 LET Y=Y+1+(-1) 
o lo que es igual: 
540 LET Y=Y 
ya que +1+(-1) es igual a +1-1 e igual a 0 
+1+(-1)=+1-1=0 
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Con ello se consigue que el valor de la 
fila no pueda variar. Si la igualdad hubiese 
sido falsa, entonces se hubiese incrementado 
en uno el valor de la Y. 

En el tomo siguiente veremos más tru- 
cos y más formas de controlar el movimiento 
de figuras por la pantala. De momento te re- 
comiendo, como siempre que vemos algo nue- 
vo, que intentes hacer tus propios programas 
y que no te conformes con probar los que aquí 
te vamos dando. 


TRUCOS Y RUTINAS BASICAS 


ONTINUANDO con el pro- 
grama que nos estamos fa- 
bricando desde hace unos 
cuantos tomos, vamos a ver 
en éste otras rutinas que se 
utilizarán para hacer el pro- 
grama. Antes de comenzar 
con ellas volvemos a dar dos 
programas que, por error; aparecieron con 
una numeración equivocada en anteriores to- 
mos. Estos dos programas son: 


8600 REM 
8601 REM aoMISARSNS SAMA lAHS ISSO IRIVIOK 
8602 REM * ORDENACION ALFANUMERICA x 
8603 REM seModISlSloO lalalala IaloloOIOIaloIOK 
8604 REM 

8605 CLS 

8606 PRINT "ORDENAR 


8608 PRINT 


5 FICHERO" 
ESO O A 


A AAA! 
AA fr 


yl 


— Rutina de ordenación alfanumérica. 
— Rutina de definición de impresión. 


La primera de ellas tiene que estar lo- 
calizada a partir de la línea 8600. La segunda, 
a partir de la 7000. Este nuevo cambio de nú- 
meros de línea se debe a que anteriormente 
estaban localizadas en unos números de línea 
que ya estaban ocupados por otras rutinas. Es- 
tas dos rutinas aparecen en este tomo como 
programas 1 y 2. 


8609 PRINT "Ordenando fichero por el campo No. “;NC 


8610 PRINT 

8611 PRINT "ESPERA UN MOMENTO" 
8612 LET CC=0 

8613 FOR Z=1 'TO TT 

8614 
8615 
8616 NEXT Z 

8617 IF CC=NC-1 THEN GOTO 8628 
8618 CLS 
8619 PRINT " 
8620 PRINT * 
8621 PRINT 


IF MID$(F$(20),Z,1)=CHR$(254) THEN LET- CC=CC+1 
IF CC=NC-1 THEN LET Z1=Z:LET Z=TT 


8622 PRINT "Lo siento pero no he encontrado el campo No. “;NC 


8623 PRINT 


8624 PRINT "Estas seguro de que las fichas de este fichero tienen";NC; "campos?" 


8625 X=1:Y=20:GOSUB 8200 
8626 CLS 

8627 RETURN 

8628 FOR Z=1 TO NN 

8629 FOR X=1 TO 2 
8630 
):LET F$(X)=4$ 


IF RIGHTS(F$(Z),Z1)<RIGHATS(F$(X),21) THEN LET AS=F$(Z):LET F$(2)=FS(X 


TRUCOS Y RUTINAS BASICAS 


8631 NEXT X 


8632 NEXT Z 

8633 CLS d 

8634 PRINT "OPERACION TERMINADA” 
8635 PRINT "========c::Iotriiimicico=oooti===" 
8636 PRINT 


8637 PRINT "El fiehers esto erdsnsda por el esmpo Ne. “¡NE 
8638 X=1:Y=20:GOSUB 8200 

8639 CLS 

8640 RETURN 


7000 REM 

7001 REM oooO lalalololalokolok 

7002 REM * DEFINICION DE IMPRESION x*x 

17003 REM sota alo lalalala lolololallollokok 

7004 REM 

7005 CLS 

7006 PRINT "DEFINICION DE LA IMPRESION" 

7007 PRINT "=======cocczmmscome=s=o======" 

7008 LOCATE 5,1 

7009 PRINT "( CUANTOS CAMPOS QUIERE QUE IMPRIMA 2" 
7010 LOCATE 12,1 

7011 LINE INPUT "==> ";A$ 

7012 IF VAL(A$)=0 THEN RETURN 

7013 LET N=VAL(A$) 

7014 DIM N$(N, 4) 

7015 LOCATE 5,1 

7016 PRINT "( QUE CAMPOS DESEA QUE IMPRIMA 2 F 
7017 LOCATE 9,1 

7018 PRINT "CAMPOS A IMPRIMIR = " 

7019 FOR Z=1 TO N 

7020 LOCATE 12,1 

7021  PRINT SPACE$(10) - 
7022 LOCATE 12,1 

7023 "LINE INPUT "==> ";N$(Z,1) 

7024 IF VAL(N$(Z,1))=0 THEN GOTO 7020 

7025 LOCATE 9,22 

7026 FOR X=1 TO Z 


7027 PRINT N$(X,1)5","5 
7028 NEXT X 
7029 NEXT Z 


7030 PRINT CHR$(29);" " 
7031 LOCATE 5,1 , 
7032 PRINT "( EN QUE ORDEN LOS IMPRIMO ? Po 
7033 PRINT "INTRODUZCA EL NUMERO DEL CAMPO EN EL " 
. 7034 PRINT "ORDEN EN QUE QUIERE QUE-SE IMPRIMA. " 

7035 LOCATE 10,1 

7036 PRINT "ORDEN DE IMPRESION = " 

7037 FOR Z=1 TO N 

7038 LOCATE 12,1 

7039 PRINT SPACE$(10) 

7040 LOCATE 12,1 

7041 LINE INPUT "==> ";N$(Z,2) 

7042 IF VAL(N$(Z,2))=0 THEN GOTO 7038 

7043 LOCATE 10,22 

7044 FOR X=1 TO Z 


7045 PRINT N$(X,2);","; 
7046 NEXT X 
7047 NEXT Z 


7048 PRINT CHR$(29);" ” 

7049 LOCATE 12,1 

7050 PRINT " “REM 10 ESPACIOS EN BLANCO 
7051 LET NN=0 
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7052 
7053 
7054 
7055 
7056 
7057 
7058 
7059 
7060 
7061 
7062 
7063 
7064 
7065 
7068 
7067 
7068 
7069 
7070 
7071 
7072 
7073 
7074 
7075 
7076 
7077 
7078 
7079 
7080 
7081 
7082 
7083 
7084 
7085 
7086 
7087 
7088 
7089 
7090 
7091 
7092 
7093 
7094 
7095 
7096 
7097 
7098 
7099 
7100 
7101 
7102 
7103 
7104 
7105 
7106 
7107 
7108 
7109 
7110 
7111 
7112 
7113 
7114 
7115 
7116 


FOR Z=1 TO N 
FOR X=1 TO N 
IF N$(Z,1)=N$(X,2) THEN LET NN=NN+1:LET X=N+1 
NEXT X 
NEXT Z 
IF NN=N THEN GOTO 7077 
CLS 
PRINT “CAMPOS A IMPRIMIR = “; 
FOR Z=1 TO N 
PRINT N$(Z,1);","; 
NEXT Z 
PRINT CHR$(29);” " 
PRINT 
PRINT 
PRINT "ORDEN DE IMPRESION = “; 
FOR Z=1 TO N 
PRINT N$(Z,2);5","; 
NEXT Z 
PRINT CHR$(29);" ” 
LOCATE 12,1 
PRINT "NO COINCIDEN LOS CAMPOS A IMPRIMIR" 
PRINT "CON EL ORDEN DE IMPRESION" 
LET X=1:LET Y=20 
GOSUB 8200 
GOTO 7000 
LOCATE 15,1 
PRINT "( ESTA DE ACUERDO ? (S/N)" 
LET A$=INKEYS 
IF A$="S" OR A$="s" THEN GOTO 7084 
IF A$<>"N" AND A$<>"n" THEN GOTO 7079 
ERASE N$ 
GOTO 7000 
FOR Z=5 TO 20 
LOCATE Z,1 
PRINT SPACES$(40) 
NEXT Z 
LOCATE 5, 1 
PRINT "INTRODUZCA AHORA EN QUE COLUMNA" 
PRINT “DE LA IMPRESORA SE HA DE IMPRI-" 
PRINT "MIR CADA CAMPO. ” 
FOR Z=1 TO N 
LOCATE 12,1 
PRINT "CAMPO No. "¿N$(Z,1);" "; 
LINE INPUT "==> ";N$(Z,3) 
IF VAL(N$(Z,3))=0 THEN GOTO 7093 
NEXT Z 
FOR Z=5 TO 17 
LOCATE Z,1 
PRINT SPACES (40) 
NEXT Z 
LOCATE 5,1 
FOR Z=1 TO N 
PRINT "EL CAMPO ";N$(Z,1);" SE TABULARA EN LA COLUMNA “;N$(Z,3) 
NEXT Z 
LOCATE 20, 1 
PRINT “( ESTA DE ACUERDO ? (S/N)" 
LET A$=INKEYS 
IF A$="S" OR A$="s" THEN GOTO 7112 
IF A$<>"N" AND A$<>"n" THEN GOTO 7108 
GOTO 7084 : 
FOR Z=5 TO 20 
LOCATE Z,1 
PRINT SPACE$(40) 
NEXT Z 
LOCATE 5,1 
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TRUCOS Y RUTINAS BASICHS 


7117 PRINT "( CUANTAS I.INEAS DEJO ENTRE FICHA" 
7118 PRINT "Y FICHA? PULSA -1 PARA CAMBIAR DE” 


7119 PRINT "PAGINA." 

7120 LOCATE 12,1 

7121 LINE INPUT “==> ";N$(1,4) 
7122 IF VAL(N$(1,4))=0 THEN GOTO 7120 
7123 CLS 

7124 PRINT "OPERACION COMPLETADA" 
7128 PRINT "======="=============" 
7126 LET X=1:LET Y=20 

7127 GOSUB 8200 

7128 CLS 

7129 RETURN 


Para que no tengáis que mirar en tomos 
anteriores y realizar vosotros mismos las mo- 
dificaciones necesarias para que el programa 
funcione en ordenadores distintos del IBM, os 
volvemos a repetir dichas modificaciones con 
los nuevos números de línea. 

Las modificaciones al primer programa 
son: 


COMMODORE: 


8605 PRINT CHR$(147) 
8618 PRINT CHR$(147) 
8626 PRINT CHR$(147) 
8633 PRINT CHR$(147) 
9639 PRINT CHR$(147) 


SPECTRUM: 


8614 1F F$(1,2)=CHR$(254) THEN LET 
Ccc=CC+l 
8630 IF F$(2,21 TO)<F$(X,Z1 TO) THEN 
LET A$=F$(Z):LET F$(Z)=F$):LET 
PS0D=AS$ 


- , Con respecto al segundo programa, las 
modificaciones son: 


COMMODORE: 


7005 PRINT CHR$(147) 

7008 POKE 214,5:POKE 211,0 

7010 POKE 214,12:POKE 211,0 

7015 POKE 214,5:POKE 211,0 

7017 POKE 214,9:POKE 211,0 

7020 POKE 214,12:POKE 211,0 : 
7021 FOR X=1 TO 10:PRINT *”¡:NEXT X 
7022 POKE 214,12:POKE 211,0 

7025 POKE 214,9:POKE 21,21 

7030 PRINT "<CURSOR-IZQ>”;"* 

7031 POKE 214,5:POKE 211,0 

7035 POKE 214,10:POKE 211,0 

7038 POKE 214,12:POKE 211,0 
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SPECTRUM: 


7039 FOR X=1 TO 10:PRINT *”:NEXT X 
7040 POKE 214,12:POKE 211,0 

7043 POKE 214,10:POKE 211,21 

7048 PRINT "<CURSOR-IZQ>”;"” 

7049 POKE 214,12:POKE 211,0 

7058 PRINT CCR$(147) 

7063 PRINT "<CURSOR-IZQ>”;"” 

7070 PRINT "<CURSOR-IZQ>”;"" 

7071 POKE 214,12:POKE 211,0 

7077 POKE 214,15:POKE 211,0 

7079 GET A$ 

7082 REM 

7085 POKE 214,Z:POKE 211,0 

7086 FOR X=1 TO 40:PRINT * "¡:NEXT X 
7088 POKE 214,5:POKE 211,0 

7093 POKE 214,12:POKE 211,0 

7099 POKE 214,Z:POKE 211,0 

7100 FOR X=1 TO 40:PRINT "”':¡NEXT X 
7102 POKE 214,5:POKE 211,0 

7106 POKE 214,20:POKE 211,0 

7108 GET A$ 

7113 POKE 214,Z:POKE 211,0 

7114 FOR X=1 TO 40:PRINT * "¿NEXT X 
7116 POKE 214,5:POKE 211,0 

7120 POKE 214,12:POKE 211,0 

7123 PRINT CHR$(147) 

7128 PRINT CHR$(147) 


7008 PRINT AT 5,0; 

7008 PRINT AT 5,0; 

7010 PRINT AT 12,0; 

7011 INPUT LINE “==> ”.A$ 
7014 DIM N$(N,4,3) 

7015 PRINT AT 5,0; 

7017 PRINT AT 9.0; 

7020 PRINT AT 12,0; 

7021 FOR X=1 TO 10:PRINT * "¿NEXT X 
7022 PRINT AT 12,0; 

7023 INPUT LINE “==> "N$(Z,1) 


7025 PRINT AT 9,21; 

7030 REM ; 

7031 PRINT AT 5,0; 

7035 PRINT AT 10,0; 

7038 PRINT AT 12,0; 

7039 FOR X=1 TO 10:PRINT * "¡NEXT X 
7040 PRINT AT 12,0; 

7041 INPUT LINE "==> ”N$(Z,2) 

7043 PRINT AT 10,21; 

7048 REM 

7049 PRINT AT 12,0; 

7063 REM 

7070 REM 

7071 PRINT AT 12,0; 

7077 PRINT AT 15,0; 

7082 REM 

7085 PRINT AT Z,0; 

7086 FOR X=1 TO 40PRINT *”¡:NEXT X 
7088 PRINT AT 5,0; 

7093 PRINT AT 12,0; 

7095 INPUT LINE “==> ”¡N$(Z,3) 

7099 PRINT AT Z,0; 

7100 FOR X=1 TO 40:PRINT *”':¡NEXT X 
7102 PRINT AT 5,0; 

7106 PRINT AT 20,0; 

7113 PRINT AT Z,0; 

7114 FOR X=1 TO 40:PRINT “"”¡:¡NEXT X 
7116 PRINT AT 5,0; 

7120 PRINT AT 12,0; 

7121 INPUT LINE "==> ”¡N$(1,4) 


AMSTRAD Y MSX: 


7008 LOCATE 1,5 
7010 LOCATE 1,12 
7015 LOCATE 1,5 
7017 LOCATE 1,9 
7020 LOCATE 1,12 
7022 LOCATE 1,12 
7025 LOCATE 22,9 
7031 LOCATE 1,5 
7035 LOCATE 1,10 
7038 LOCATE 1,12 
7040 LOCATE 1,12 
7043 LOCATE 22,10 
7049 LOCATE 1,12 
7071 LOCATE 1,12 


9000 REM 


71077 LOCATE 1,15 
7085 LOCATE 1,2 
7088 LOCATE 1,5 
7093 LOCATE 1,12 
7099 LOCATE 1,2 
7102 LOCATE 1,5 
7106 LOCATE 1,20 
7113 LOCATE 1,Z 
7116 LOCATE 1,5 
7120 LOCATE 1,12 


El primer programa que vamos a ver en 
este tomo va a ser la rutina que se encargará 
de definir la forma del fichero. Esta rutina+le 
preguntará al usuario cuántos campos habrá 
por registro y cuántos caracteres por campo. 
Esto es necesario para, a la hora de la entrada 
de datos y a la hora de imprimir los diferen- 
tes registros, saber dónde empezar y dónde 
terminar. Este programa nos va a permitir con- 
figurar nuestro fichero como nosotros quera- 
mos o bien como uno que ya hubiésemos con- 
figurado. En el caso de que queramos hacer 
un fichero que sea muy grande y éste no nos 
quepa de una sola vez en memoria, necesita- 
remos crear más de un fichero con la misma 
estructura. Gracias a esta rutina sólo necesita- 
mos definir el primer fichero, pues hay una op- 
ción de menú que copia la estructura de un fi- 
chero en el nuevo fichero que queramos rea- 
lizar. Este programa es el 3 y aparece a conti- 
nuación: 


NOVIBRE 


DIRECCION 


TELEFONO 


CIUDAD 


COD. POSTAL 


Fig. 1. 
remos al ordenador el número de campos y sus nombres. 


Con esta rutina configuramos la forma del fichero. Le di- 


9001 REM ANedRalORNORNOjEalaloaja lalalala lalalala laajojolojokk 
9002 REM * DEFINICION DE UN FICHERO NUEVO x 
9003 REM AddSadSdalSSIaajolaiolalalalalajolalaioaiialojoioaok 
9004 REM 
9005 CLS 


al 


PPD 


TRUCOS Y RUTINAS BASICAS CILA 


9006 LET A$="CREACION DE UN FICHERO” 

9007 LET N=2 j 

9008 LET A$(1)="UTILIZAR UNO QUE ESTE CREADO” 

9009 LET A$(2)="CREAR UNO NUEVO” 

9010 GOSUB 8400 

9011 IF A$="1" THEN GOTO 9039 

9012 PRINT " CREACION DE UN NUEVO FICHERO" 

9013 PRINT' M========25======5 === === y 

9014 PRINT:PRINT 

9015 PRINT " Por favor, responda a las preguntas quele van a aparecer a continua 
cion." y 

A A A O A A e 
9017 LOCATE 9,1 

9018 INPUT "Cuantos campos tendra cada ficha?";N(1) 
9019 IF N(1)<0 OR N(1)>20 THEN GOTO 9017 

9020 DIM M$(N(1))> 

9021 PRINT 

9022 FOR Z=1 TO N(1). 

9023 LOCATE 16,1 

9024 PRINT " 

9025 LOCATE 18,1 

9026 PRINT " 

9027 LOCATE 16,1 

9028 PRINT "Cuantos caracteres ocupa el campo “;Z 
9029 INPUT N(Z+1) 

9030 LOCATE 18,1 

9031 PRINT "Como se llama este campo" 

9032 INPUT M$(Z) 

9033 NEXT Z 

9034 CLS 

9035 PRINT "OPERACION TERINADA” 

9036 LET X=1:LET Y=20 

9037 GOSUB 8200 

9038 RETURN 

9039 REM 

9040 REM xxx UTILIZACION DE UN FICHERO YA CREADO x*x*x* 
9041 REM % 

9042 CLS 

9043 PRINT " CREACION DE UN FICHERO” 

TOA IN a o a 

9045 PRINT : 

9046 PRINT " Teclea el nombre del fichero que ya tiene una estructura definida y 
del cual laquieres copiar." 

9047 PRINT:PRINT:PRINT 


9048 INPUT “NOMBRE = ”;N$ 

cop i 9049 PRINT: PRINT 
9050 PRINT " Asegurate de que esta colocada la cintao disco que contiene dicho f 
ichero” 


9051 LET X=1:LET Y=20 

9052 GOSUB 8200 

9053 CLS 

9054 PRINT "LEYENDO ... "¡N$ 
9055 OPEN N$ FOR INPUT AS +1 
9056 INPUT+H1, TT 

9057 DIM M$(TT) 

9058 FOR Z=1 TO TT 

9059 INPUT$1,N(Z+1) 

9060 NEXT 2 

9061 LET N(1)=TT 

9062 FOR Z=1 TO TT 

9063 INPUT+$1,M$(2) 

9064 NEXT 2 

9065 CLS 

9066 PRINT "CONFIGURACION LEIDA” 
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E E A A II AI A o A US VO lo LO 
9067 PRINT:PRINT 
9068 PRINT "Cada ficha tiene ";TT;" campos” 
9069 PRINT 
9070 FOR Z=1 TO TT 
9071 PRINT "el campo ";Z;" se llama ";M$(2) 


9072 NEXT Z 

9073 LET X=1:1.ET Y=21 
9074 GOSUB 8200 

9075 RETURN 


Las modificaciones que hay que reali- 
zar en este programa son muy numerosas de- 
bido a que cada ordenador tiene su propia for- 
ma de crear los ficheros. Por ejemplo, en el 
SPECTRUM no se pueden crear ficheros. Por 
ejemplo, en el SPECTRUM no se pueden crear 
ficheros, pero se pueden almacenar matrices 
y vectores. También hay diferencias notables 
según se esté trabajando con disco o cassette. 
Aun así, como el programa merece la pena, a 
continuación aparecen las modificaciones 
para todos los ordenadores distintos del IBM: 


COMMODORE: 


9005 PRINT CHR$(147) 

9017 POKE 214,9:POKE 211,0 
9023 POKE 214,16:POKE 211,0 
9025 POKE 214,18:POKE 211,0 
9027 POKE 214,16:POKE 211,0 
9030 POKE 214,18:POKE 211,0 
9034 PRINT CHR$(147) 

9042 PRINT CHR$(147) 

9053 PRINT CHR$(147) 

9055 OPEN1,1,0,N$ 

9065 PRINT CHR$(147) 


AMSTRAD: 


9017 LOCATE 1,9 9055 OPENIN N$ 


9023 LOCATE 1,16 9056 INPUT+9,TT 
9025 LOCATE 1,18 9059 INPUT+9,N(Z+1) 
9027 LOCATE 1,16 9063 INPUT+9,M$(Z) 


9030 LOCATE 1,18 


MSX: 


9017 LOCATE 1,9 

9023 LOCATE 1,16 
9025 LOCATE 1,18 
9027 LOCATE 1,16 
9030 LOCATE 1,18 


9055 OPEN "CAS:"+M$ FOR INPUT AS. 


$l 
SPECTRUM: 


9017 PRINT AT 9,0; 
9023 PRINT AT 16,0; 
9025 PRINT AT 18,0; 
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9027 PRINT AT 16,0; 
9030 PRINT AT 18,0; 
9055 DIM N(21):DIM M$(20,30):LOAD N$ 
DATA NO:LOAD N$ 
DATA M$0 

9056 LET TT=N(1) 
9057 REM 

9058 REM 

9059 REM 

9060 REM 

9061 REM 

9062 REM 

9063 REM 

9064 REM 


Fig. 2. Estas son las variables que almacenan la forma del fi- 
chero. 


El funcionamiento del programa línea a 
línea es el siguiente: 


Línea 9005. Borramos pantalla. 

Línea 9006. Como hay dos formas de 
definir el fichero, creando una estructura nue- 
va y utilizando una ya existente, imprimiremos 
un menú en la pantalla. Almacenamos en la va- 
riable alfanumérica A$ la cabecera de dicho 
menú. 

Línea 9007. Asignamos a N el valor 2. 
Esta variable le dice a la rutina generadora de 
menús que este menú se compone de dos op- 
ciones. 

Línea 9008. Asignamos al primer ele- 
mento del vector A$ el mensaje que compone 
la primera opción del menú. 


TRUCOS Y RUTINAS BASICAS HI 


Línea 9009. En el segundo elemento de 
dicho vector almacenamos la segunda opción 
del menú. 

Línea 9010. Llamamos a la rutina gene- 
radora de menús. 

Línea 9011. Si el resultado, después de 
que el usuario ha pulsado la opción que de- 
seaba, es igual a uno (se utilizará la estructura 
de un fichero que ya existe), nos vamos a la lí- 
nea 9039. Ya veremos más adelante qué es lo 
que hacemos a partir de esa línea. 


TECLADO DE ORDENADOR 


Fig. 3. - Podemos definir nuestro nuevo fichero desde el teclado, 
o bien utilizando la estructura de otro fichero. 


Línea 9012. En el caso de que el usua- 
rio quiera definir una nueva estructura, la 
pare del programa que lo realiza se encuen- 
tra a partir de esta línea. En ésta imprimimos 
un mensaje para que el usuario sepa en qué 
parte del programa se encuentra. 

Línea 9013. Subrayamos el mensaje im- 
preso anteriormente. 

Línea 9014. Dejamos dos líneas en 
blanco. , 

¿+ Línea 9015. Se avisa al usuario para que 
responda las preguntas que a continuación le 
van a aparecer en pantalla. 

Línea 9016. Se deja una separación con 
asteriscos. Debajo de dicha separación será 
donde se desarrolle la función principal de la 
rutina. 

Línea 9017. Colocamos el cursor en la 
primera columna de la línea novena. 

Línea 9018. Se le pregunta al usuario 
cuántos campos tendrá cada ficha del registro 
que estamos inicializando. El número de cam- 
pos por registros está restringido a veinte 
como máximo, pero en muy pocas ocasiones 
se alcanzará este número. 

Línea 9019. Se comprueba que el usua- 
rio no ha introducido ni un número negativo ni 
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un número mayor de veinte. En caso de que 
lo haya hecho se le vuelve a preguntar. 

Línea 9020. Se dimensiona un vector 
que tendrá tantos elementos como campos 
cada registro. Este vector MSO nos servirá 
para almacenar, más adelante, los nombres de 
cada campo. 

Línea 9021. Dejamos una línea en 
blanco. 

Línea 9022. Comenzamos un bucle den- 
tro del cual vamos a preguntar la longitud en 
caracteres de cada campo y el nombre de di- 
cho campo. 

Línea 9023. Colocamos el cursor en la 
primera columna de la fila número 16. 

Línea 9024. Imprimimos una serie de - 
espacios en blanco. Estas dos líneas no sirven 
para nada en la primera vuelta del bucle, pero 
a partir de la segunda tienen como función la 
de borrar lo que haya escrito el usuario del 
programa en la pantalla. 

Línea 9025. Colocamos el cursor en la 
primera columna de la fila 18. 

Línea 9026. E imprimimos una serie de 
espacios en blanco, La función de estas dos lí- 
neas es idéntica a la de las dos anteriores. 

Línea 9027. Volvemos a colocar el cut- 
sor en la línea 16. 

Línea 9028 Y le preguntaremos al 
usuario la longitud del campo número Z en ca- 
racteres. Como Z va variando con el bucle, al 
usuario se le preguntará por un campo distin- 
to cada vez. 

Línea 9029. Se realiza un INPUT desde 
el teclado para recoger el número de carac- 
teres que tendrá dicho campo. El resultado de 
la entrada se almacenará en el vector N$0, 
cuya declaración se encuentra en el progra- 
ma principal. 

Línea 9030. Volvemos a colocar el cur- 
sor en la línea 18. 

Línea 9031. Y le pedimos al usuario que 
nos diga el nombre de este campo. El nombre 
del campo es el que aparecerá en la pantalla 
cuando se recojan los datos de una determi- 
nada ficha. Este nombre puede ser algo así 
como: 


— AUTOR. 

— NOMBRE DEL GRUPO MUSICAL. 
— NUMERO DE TELEFONO. 
—/ETO, 


Esto le dirá al usuario qué dato tiene 
que introducir en cada momento. 


Línea 9032. Se realiza un INPUT desde 
el teclado y el resultado de la entrada se al- 
macena en el vector M$(, del cual hemos ha- 
blado un poco más arriba. 

Línea 9033. Aquí termina el bucle, 

Línea 9034. Borramos la pantalla. 

Línea 9035. Se le avisa al usuario de 
que la operación está terminada. 

Línea 9036. Se asigna a la variable X el 
valor uno y a la variable Y el valor veinte. Es- 
tas dos variables serán las que le digan a la ru- 
tina de pulsa una tecla dónde tiene que colo- 
car el mensaje. 

Línea 9037. Llamamos a la rutina de 
pulsa una tecla. 

Línea 9038. Una vez que el usuario ha 
«pulsado cualquier tecla, se devuelve el con- 
trol al programa principal. 


La serie de líneas que aparecen a con- 
tinuación son las encargadas de leer la estruc- 
tura de un fichero que ya esté creado para 
crear otro nuevo, 


Línea 9042. Borramos la pantalla. 

Línea 9043. Imprimimos la ya usual ca- 
becera para avisar al usuario de en qué parte 
del programa se encuentra. 

Línea 9044. Subrayamos el mensaje. 

Línea 9045. Dejamos una línea en 
blanco. 

Línea 9046. Se le pregunta al usuario 
por el nombre del fichero del cual vamos a co- 
piar la estructura. 

Línea 9047. Dejamos tres líneas en 
blanco, 

Línea 9048. Y recogemos del teclado, 
mediante una sentencia INPUT, lo que haya es- 
crito el usuario en el ordenador. El resultado 
lo almacenamos en la variable alfanuméri- 
ca N$. 

Línea 9049. Dejamos dos líneas en 
blanco, 

Línea 9050. Y le decimos al usuario que 
se asegure de que la cinta (o disco, según el 
ordenador) que ha preparado es la correcta, 
Este mensaje aparece porque el programa no 
está preparado para detectar errores. 

Línea 9051. Se asignan los valores uno 
y veinte a las variables X e Y. Estas dos varia- 
bles le dicen a la rutina de pulsa una tecla dón- 
de tiene que imprimir el mensaje. 

Línea 9052. Llamamos a la rutina de 
pulsar una tecla. 

Línea 9053. Borramos la pantalla. 
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Línea 9054. Imprimimos un mensaje 
que le dice al usuario que el ordenador está 
leyendo el fichero que él introdujo como mo- 
delo de estructura. 

Línea 9055. Abrimos el fichero. En el 
SPECTRUM, a la vez que abrimos el fichero, lo 
leemos. 

Línea 9056. Leemos del fichero el nú- 
mero de campos que tiene cada registro. 

Línea 9057. Dimensionamos la tabla de 
los nombres de los campos con el número de 
campos que acabamos de leer. 

Línea 9058. Comienza un bucle desde 
uno hasta el número máximo de campos por 
registro dentro del cual vamos a leer la longi- 
tud de cada campo en caracteres. 

Línea 9059. Leemos una a una la longi- 
tud de cada campo. El resultado de la lectura 
queda almacenada en el vector numérico NQ(. 

Línea 9060. Aquí termina el bucle. 

Línea 9061. Asignamos al primer ele- 
mento del vector N() el número de campos por 
registro. 

Línea 9062. Comenzamos otro bucle, 
dentro del cual vamos a leer del fichero el 
nombre de cada campo. 

Línea 9063. Leemos mediante un input 
el nombre de cada campo y lo almacenamos 
en el vector M(.. 

Línea 9064. Aquí termina el bucle. 

Línea 9065. Borramos la pantalla. 

Línea 9066. Sacamos un mensaje en la 
pantalla que le dice al usuario cuántos campos 
tiene cada ficha. Este mensaje y el siguiente 
está puesto por si el usuario se ha equivocado 
de fichero y desea leer la configuración de 
otro. 

Línea 9067. Dejamos una línea en 
blanco. 

Línea 9070. Comenzamos un bucle den- 
tro del cal se le va a mostrar al usuario el nom- 
bre de todos los campos que componen un re- 
gistro. 

Línea 9071. Se imprime el número y el 
nombre del registro. 

Línea 9072. Aquí termina el bucle. 

Línea 9073. Se asignan valores a las va- 
riables X e Y para imprimir el mensaje: 


PULSA UNA TECLA 
Línea 9074. Llamamos a la rutina que 
imprime dicho mensaje. 


Línea 9075. Y retornamos al programa 
principal. 
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2] Grabación de memorias 


E las memorias descritas en 
el tomo anterior hay que 
destacar por su interés 
práctico aquellas que pue- 
den ser grabadas y mante- 
ner su contenido indefinida- 
mente, aun después de reti- 
rada la alimentación. Son las 
memorias llamadas comúnmente de sólo lec- 
tura o ROM (Read Only Memory). Dentro de 
este tipo de memorias las que pueden ser gra- 
badas por el usuario son las más interesantes, 
pues permite realizar cambios en el sistema, 
para adaptarlo a nuestras necesidades. 
Vamos a describir el proceso de graba- 
ción de los diferentes tipos de ROM grabables 
por el usuario y mostraremos varios diseños 
adaptables a nuestros ordenadores persona- 
les. Como uno de los tipos de memoria son 
borrables mediante rayos ultravioleta, indica- 
remos el modo de realizar un borrador que 
permita poner la memoria en las condiciones 
iniciales, si es necesario repetir el proceso. 


Memorias de fusible o PROMS 


Para determinadas aplicaciones que re- 
quieren tiempos de acceso muy bajos las me- 
morias de sólo lectura de fusibles resultan 
apropiadas. Permiten realizar algunos tipos de 
funciones simples y de decodificación, susti- 
tuidas actualmente en muchos casos por cir- 
cuitos PAL que incluyen, además, funciones 
complejas. Sin embargo, es intersante conocer 
el proceso de grabación y un ejemplo de la 
circuitería necesaria. 


33 


de 
¡24 
3 
4 
5 
46% 
A 
9 


Fig. 1. Memoria PROM de fusibles PB506. 


La grabación se efectúa mediante pul- 
sos de corriente. Comienza verificando el ni- 
vel de tensión que se obtiene para una 
corriente que se inyecta en cada bit. Las entra- 
das de decodificación del circuito deberán es- 
tar desactivadas, es decir, a nivel 1. La inten- 
sidad que se inyecta es de 20 miliamperios, a 
través del pin de salida. Si la tensión es me- 
nor que el nivel de referencia de 7 voltios, la 
celda está en nivel 1 y es programable. Se in- 
yecta entonces una corriente de 200 miliam- 
perios y se mantiene durante 7,5 microsegun- 
dos. Después se vuelve a verificar el nivel de 
tensión para una intensidad de 20 miliampe- 
rios. El ciclo se repite un número variable de 
ciclos hasta que la tensión de salida sobrepa- 
sa el nivel de referencia en la verificación, 
que corresponderá a que el fusible ha queda- 
do prácticamente roto. En ese caso el nivel de 
tensión subirá hasta el límite dado por el ge- 
nerador de corriente. Después de la verifica- 
ción se recomienda dar otros cuatro pulsos de 
grabación. 
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Fig. 2.- Señales de grabación. 


El circuito de grabación es de cierta di- 
ficultad, pues requiere la lectura de niveles 
analógicos después de cada pulso de graba- 
ción. Los pulsos de grabación, sin embargo, 
pueden generarse fácilmente mediante una 
fuente de intensidad constante, a partir de una 
fuente estabilizada y de un transistor, pues es 
sabido que un transistor se comporta como 
fuente de intensidad constante, proporcional a 
la intensidad de base. Por supuesto, que en va- 
cío o con una resistencia de carga muy alta la 
corriente estará limitada por la tensión del ge- 
nerador, no comportándose realmente como 
fuente de intensidad constante. 

La memoria es utilizada como cualquie- 
ra de las de sólo lectura, activando las entra- 
das de dirección y las de selección del chip. 
El tiempo de acceso es de 70 nanosegundos 
máximo. 


El Memorias borrables con rayos 
ultravioleta o EPROMS 


Las más comunes entre las memorias 
de sólo lectura grabables por el usuario son 
las de borrado por rayos ultravioleta. Tienen 
la particularidad de almacenar la información 
en una celda aislada y que actúa sobre la 
puerta de un transistor MOS. El proceso de 
grabado consiste en la introducción de cargas 
eléctricas en la celdilla mediante pulsos de 
tensión, suficientemente alta para el proceso, 
pero sin llegar a dañar el resto de la circuite- 
ría. Para activar solamente una celda es nece- 
sario direccionarla de la misma manera que 
se hace para leerla, pero con las entradas de 
control en condición de escritura y la entrada 
de grabación al nivel correspondiente al tipo 
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a grabar. Por tanto, la secuencia necesaria 
para la grabación será: 


— Establecer los niveles de reposo. 

— Poner en las entradas de dirección 
los bits correspondientes a la dirección a gra- 
bar. 

— Poner la entrada de selección en el 
nivel para grabar. 

— Poner la entrada de grabación en el 
nivel activo DURANTE EL TIEMPO ESPECIFI- 
CADO, 

— Verificar la grabación activando la 
señal de control de salida y realizando un ci- 
clo de lectura. 

— Desactivar la entrada de selección. 

— Desactivar el nivel de grabación. . 


Necesitamos, pues, para el grabador los 
siguientes elementos: 


— Señales para poder programar la di- 
rección deseada de la memoria. 

— Señales de control para producir los 
ciclos de grabación, lectura y verificación. 

— Tensiones programables para las en- 
tradas de grabación. 

— Módulos de personalización para los 
diferentes tipos de EPROM, pues las patillas 
de cada tipo de memoria presentan algunas 
diferencias. 

— Conexión al ordenador personal. 


El diagrama de bloques necesario es el 
de la figura 3: 


Vamos a describir por separado la rea- 
lización de cada bloque y más adelante mos- 
traremos el circuito completo, 


Fig. 3. Diagrama de bloques del grabador de EPROMS. 


Mi Señales para programación 
de la dirección 


Se necesita poder direccionar hasta 
64K, es decir, 16 bits. Una solución posible se- 
ría mediante puertos de salida conectados al 
bus, pero considerando que lo normal es rea- 


El circuito puede realizarse mediante 
dos chips de contadores de 8 etapas cada uno. 
El contador utilizado es de tipo asíncrono y se 
consiguen los 16 bits encadenando la salida 
del primero con la entrada del segundo. Las 
entradas necesarias son el reloj y la puesta a 
cero. Estas entradas estarán conectadas a sen- 
das salidas de un puerto. 


AL ZOCALO DE EPROM 
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Fig. 4. Contador de direcciones. 


lizar la lectura y la grabación de forma se- 
cuencial, se puede realizar el mismo trabajo 
generando la dirección mediante un contador 
que se inicializa a 0, al principio de la opera- 
ción y se hace avanzar mediante pulsos para 
conseguir la dirección deseada. El número de 
chips necesario es el mismo en los dos casos, 
con la diferencia que solamente es necesario 
direccionar un puerto. 
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El Decodificación de dirección 
de la tarjeta 


Utilizando la tarjeta de ampliación de 
puertos de entrada/salida tenemos ya direc- 
cionados lo puertos. Si hacemos una tarjeta es- 
pecífica para grabación deberemos incluir la 
decodificación necesaria para un puerto de 
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entrada y dos de salida. Se muestra el circui- 
to de decodificación para Spectrum, con la de- 
nominación que ya hemos empleado en la des- 
cripción de la tarjeta de ampliación de puer- 
tos de entrada/salida. Pueden utilizarse los 
mismos esquemas que para dicha tarjeta para 
ubicar los puertos del grabador en la zona que 
más convenga. Es recomendable que esta tar- 
jeta sea autónoma, pues realmente no es ne- 
cesario utilizarla simultáneamente con las tar- 
jetas de otros proyectos, pero es, en definitiva, 
cada uno quien decide cómo la utiliza. 
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Fig. 8. Decodificación de dirección. 


2 Conexión al bus de datos 


La combinación de un puerto de cada 
tipo se utiliza como bus bidireccional para co- 
nexión al bus de datos de la EPROM. Se em- 
pleará un circuito de 8 bits de salida con bies- 
tables y 8 bits de entrada con amplificadores 
de tres estados. La dirección es la misma para 
los dos, con la diferencia que uno se activa con 


el pulso de escritura y el otro con el pulso de 
lectura. 


TO 
CONTROL o 
SALIDA o 

ESCRIBE 
DATOS 


LEE DATOS 


Fig. 6. Conexión al bus de datos. 
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La salida de los biestables hacia el bus 
de datos de la EPROM es controlable desde 
programa, pues las líneas son bidireccionales 
y ha de poderse dejar en tercer estado. 


' Generación de tensiones 
de grabación 


Para la grabación son necesarias varias 
tensiones según el tipo de componente. En la 
entrada de grabación (Vpp) es necesario po- 
der programar las tensiones 0, 12, 21 y 25 voltios. 
Podemos generar una tensión superior a la ali- 
mentación del equipo mediante un conversor 
DC-DC, que incluye un oscilador y después 
con un regulador controlable seleccionar la 
tensión adecuada. Para cada tipo de EPROM 
solamente es necesario conmutar entre 0 vol- 
tios y la tensión de grabación. La forma apro- 
piada para realizar la selección es mediante 
puentes, que, además, es necesario tener en 
cuenta para poder llevar las tensiones a las pa- 
tillas adecuadas a cada modelo. La solución es 
lenta pero segura y por lo demás no presenta 
mucho inconveniente el tener que sustituir el 
módulo de personalización para cada modelo. 

Como la corriente consumida por los 
circuitos lógicos es alta, se recomienda utili- 
zar una fuente separada que permita indepen- 
dizar la generación de impulsos de los circuitos 
del ordenador personal. Disponiendo de señal 
alterna para la generación de 5 voltios, pode- 
mos generar también la tensión de grabación 
mediante multiplicadores de tensión. La 
corriente de grabación es muy baja, del orden 
de 30 miliamperios, por lo que resultará sen- 
cilla la generación de la tensión necesaria. 

El regulador que estabiliza la tensión de 
salida a partir de la tensión filtrada es de tipo 
LM317, que presenta la particularidad de po- 
der programarse la tensión mediante el valor 
de la resistencia a tierra desde el terminal co- 
mún. La tensión de salida resulta ser: 


Vo = 1,25 (1 + R2/R1) + ladj R2. 


Donde Rl es la resistencia entre las pa- 
tillas de salida y común y R2 la resistencia des- 
de la patilla común y masa. Por ser la intensi- 
dad ladj, que sale por el terminal común, infe- 
rior a 100 microamperios, puede despreciar- 
se el segundo término. 

Para podet seleccionar las tensiones 
que en los diferentes casos es necesario dis- 


poner se conectan en serie con las resisten- 
cias de programación transistores controlados 
por programa, que se hacen conducir o man- 
tener al corte mediante la salida de un puer- 
to. Este sencillo procedimiento puede em- 
plearse con transistores corrientes siempre 
que las intensidades sean bajas y no se nece- 
site mucha exactitud en las tensiones progra- 
madas. Si se necesitara programar valores 


a 


12 220 y F 
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tor de expansión se puede prescindir de la ge- 
neración de la tensión de alimentación de 5 
voltios, pero sigue siendo necesario generar 
la tensión de grabación. Mediante la tensión 
de 12 voltios y un oscilador obtenemos tensión 
alterna, que podemos duplicar para conseguir 
la tensión necesaria. La regulación se hará 
igualmente mediante las resistencias conmu- 
tadas con transistores. 


LM317 


Fig. 7. Tensión de grabación con doblador de tensión. 


muy exactos deberíamos utilizar transistores 
FET o MOS, que presentan una relación de re- 
sistencia abierto/cerrado muy grande e inde- 
pendiente de la tensión aplicada. En cualquier 
caso, es recomendable ajustar los valores de 


El Módulos de personalización 


Para poder programar diferentes tipos 
de EPROMS es necesario dotar al equipo de 
grabación de la posibilidad de asignar las se- 


fig. 8. Tensión de grabación con oscilador. 


las tensiones, mediante la puesta en paralelo 
con la resistencia a masa de una del valor ne- 
cesario para conseguir la tensión justa. 

Para los ordenadores personales que 
disponen de suficiente corriente en el conec- 
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ñales apropiadas a cada tipo. Montaremos un 
zócalo con las señales que pueden variar en 
cada tipo y prepararemos un soporte especial 
de componentes con los puentes necesarios 
para que se correspondan con las patillas. Si 
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solamente deseamos grabar un tipo de 
EPROM podríamos, por supuesto, cablear la 
tarjeta para ese determinado circuito. . 

Las señales que resultan diferentes 
para las EPROMS son: 


e Vcc. Es siempre 5 voltios, pero en- 
trando por la patilla 28 o 26, según que la 
EPROM sea de más de 64K. o menos. 

e Vpp. Es la tensión de programación, 
que puede ser necesario conmutar con valo- 
res de 0, 12, 21 y 25 voltios. Para controlar la sa- 
lida (-OE), podríamos necesitar la tensión de 
5 voltios, pero solamente es necesario para las 
2132 y 27512, en cuyo caso puede hacerse la 
lectura como si de verificación se tratase, es 
decir, bajo la tensión de programación. 
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Estas señales se programarán desde el 
puerto de control, escribiendo cada vez el oc- 
teto completo, modificando el bit que se nece- 
site, 

Los pines de la izquierda significan la 
señal lógica representada y el bit del puerto 
de control o del contador de direcciones que 
la produce. La señal A12 no es necesario pa- 
sarla por el zócalo de personalización por ser 
utilizada en la misma patilla en todas la 
EPROMS de 64K. en adelante. 


Los módulos de personalización se mon- 
tarán sobre soporte de componentes y se eti- 
quetarán de acuerdo con el tipo de EPROM 
para el que se deben utilizar, teniendo espe- 
cial cuidado en marcar la orientación como 
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Fig 9. Módulos de personalización. 


e -OE,. Control del amplificador de tres 
estados de la salida. 

e -CE/-PGM. Control de selección de 
la EPROM y pulsos de programación de nivel 
lógico. 

e Al5. Solamente necesario para la 
27512. 

e A14, Necesario para 27512 y 27256. 

e A13. Necesario para 27512, 27256 y 
27128. 

e All. Necesario de la 2732 en ade- 
lante. 

e -CE. Necesario por separado de 
-PGM en 2764 y 27128, 
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deben colocarse, pues una inversión del or- 
den de pines sería catastrófica tanto para la 
EPROM como seguramente para el grabador 
y el ordenador. 


2 Señales de control 


Las señales necesarias para producir el 
ciclo de grabación o lectura se generan por 
programa desde un puerto de salida. Todas 
las señales tienen unas especificaciones muy 
holgadas, excepto el pulso de grabación, que 
tiene un mínimo, por debajo del cual no se ga- 


rantiza la permanencia de lo grabado y un 
máximo, por encima del cual pueden produ- 
cirse daños irreversibles en la celdilla. 

El pulso de grabación podemos reali- 
zarlo por programa, necesitando entonces re- 
currir a una rutina en lenguaje de máquina, o 
disponer de un oscilador monoestable con la 
duración ajustable y que sea activado por pro- 
grama. 
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Zócalo para la EPROM 


Para mantener la EPROM que se graba 
es conveniente disponer de un zócalo de los 
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denominados de “fuerza de inserción nula”, 
que permiten la colocación de la EPROM sin 
dañar las patillas y dejarla sujeta mediante 
una palanca. Estos zócalos son un poco caros, 
pero recomendables si se va a grabar con fre- 
cuencia. Para poder grabar las EPROMS 2764 
y superiores es necesario que el zócalo tenga 
28 patillas. Para la grabación de 2716 y 2732 
deberemos tener especial cuidado en colocar- 
las ocupando las posiciones desplazadas, de- 
jando las patillas 1, 2, 27 y 28 del zócalo sin uti- 
lizar. 

En la figura 11 se muestra la asignación 
de pines de las distintas EPROMS, detallando 
especialmente las que son diferentes. En “el 
exterior del zócalo se indica el número de pin, 
para la numeración correspondiente a la con- 
figuración de 28 patillas, mientras que en el in- 
terior se indica para la configuración de 24 pa- 
tillas. 

Puede verse que hay solamente 8 pati- 
llas cuya asignación de función difiere entre 
los diferentes tipos. Es necesario tener en 
cuenta también las tensiones de programa- 
ción, que se ajustarán mediante otro zócalo de 
personalización. 


3 Control de grabación 


Para aumentar la seguridad de que no 
se "regraba" una EPROM que ya lo esté y que 


Fig. 11, Zócalo para la EPROM. 


deseamos copiar, es conveniente disponer un 
conmutador que impida la generación de ten- 
siones de grabación si solamente se desea 
leer o verificar. Además, colocaremos un dio- 
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do LED que se ilumine cuando la tensión de 
grabación esté presente en el zócalo, para re- 
cordarnos que no debemos manipular indebi- 
damente la EPROM. 


A 


Fig 12. Control de grabación. 
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Registro de control 

Para el funcionamiento de la tarjeta hay 
que disponer de varias señales de control, 
como ya se ha indicado al describir cada blo- 
que del grabador. Todas las señales pueden 
generarse mediante un puerto de salida. El re- 
gistro se escribe cada vez con la información 
necesaria para activar cada acción. El progra- 
ma deberá tener en cuenta el estado en que 
se encuentra cada bit para no alterarlo indebi- 
damente. 


DENOMINACION 


OE B 
Vpp=0 


CONTROL SALIDA A EPROM 
PARA PERMITIR GENERA 
0 VOLTIOS 
PARA GENERAR TENSION DE 
GRABACION 
PULSOS LOGICOS DE GRABACION 
PARA LECTURA DE LA EPROM 
SELECCION DE LA EPROM 
PONE CONTADORES A 0 
AVANZA DIRECCION 


Vpp = 21/25 


Fig. 13. Denominación de las señales de control. 


. 
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El registro de control se inicializa a cero 
mediante un circuito temporizador formado 
por un condensador y una resistencia. El dio- 
do colocado en paralelo con la resistencia, 
acelera la descarga del condensador al apa- 
gar el equipo. Se emplea precisamente el cir- 
cuito 7415273 por disponer de la entrada de 
reset. 


2 Programa de grabación 


La circuitería descrita por sí sola no es 
capaz de ayudarnos a grabar las memorias 
EPROM, es necesario un programa que dote 
de capacidad lógica al circuito montado. Por 
ser un programa largo y con muchas posibili- 
dades de adaptación a diversas aplicaciones 
se describirá detalladamente en el próximo 
tomo. También se incluirá un esquema comple- 
to englobando todos los bloques descritos en 
estas páginas. 


¿2 Memorias borrables eléctricamente 


La complejidad del proceso de graba- 
ción y borrado de las EPROMS ha forzado la 
disponibilidad de circuitos que puedan ser 
grabados de forma más simple y que puedan 
ser alterados sin necesidad de sacarlos del 
circuito. Las memorias borrables eléctrica- 
mente (EEPROM = Electrically Erasable 
PROM) han venido a solucionar este problema. 

Su comportamiento en lectura es exac- 
tamente igual al de las memorias EPROM. Para 
la grabación y el borrado hay que distinguir 
dos tipos: las que utilizan tensiones de 5 vol- 
tios únicamente o las que requieren tensiones 
mayores. Las primeras poseen, además, la cir- 
cuitería interna necesaria para mantener el 
pulso de grabación el tiempo necesario. 


a Fig. 14. Registro de control. 
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NATURALEZA Y TECNOLOGIA 


El Estudio del rozamiento 
como fenómeno físico 


MPEZAREMOS por conside- 
rar los bloques de la figura 
1. La polea se considera sin 
masa. 

Los bloques A y Bin- 
teraccionan a través de la 
tensión de la cuerda. Se tra- 
ta, por tanto, de una fuerza 

interna al sistema. Pero el rozamiento del blo- 
que A con el plano es una fuerza externa, ade- 
más, de los pesos. Por consiguiente, ya no es 
constante la velocidad del centro de grave- 
dad. 


Fig. 1. Se simulará el movimiento de dos bloques unidos por 
una cuerda que pasa por una polea. 


El movimiento de este sistema depen- 
derá de: 


— Las masas A y B, m, y my; 


— El coeficiente dinámico de roza- 
miento, K; 


— El ángulo del plano, 8. 


. 
. 


La fuerza de rozamiento entre el bloque 
A y el plano depende de los materiales. La ta- 
bla 1 da algunos coeficientes de rozamiento. 
El rozamiento siempre se opone al movimien- 
to del bloque, y vale m, xg xk x cos dé. 

Planteando las ecuaciones de Newton 
para cada bloque, o bien una ecuación global, 
podemos llegar a la siguiente sistematización: 


Coeficientes de Rozamiento 


Madera sobre piedra............. 0,4 
Madera sobre madera............ 0,5-0,2 
Madera sobre metal.............. 0,6-0,2 
Hierro sobre piedra.............. 0,7-0,3 
Metal sobre metal (seco) ......... 0,25-0,15 


Superficies metálicas engrasadas.. 0,2-0,1 
Corcho sobre asfalto ............. 


Movimiento 


Condición de B Aceleración 


y (mp - m, sen a - m,k cos a) 
ma > m, (sen a+kcosa) Baja IB TAO Mao: 
Ma + Mp 


mp(sen a. - k cos a) < my 
< ma(sen a +k cos 0) 


No hay 
movimiento 


g(m, sen a - mz - mk cos a) 


Mg > mx (sen a -k cos a) Sube 


Mx + Mg 
50 Física con ordenador. 


Tomaremos g = 9,81 en el Sistema Inter- 
nacional como la aceleración de la gravedad. 
A la vista del cuadro anterior, a priori no po- 
demos decir hacia dónde se moverá el siste- 
ma. Pero basta introducir los datos deseados 
y el ordenador trabaja para nosotros. 

- Una vez introducidos los cuatro pará- 
metros de los que depende el sistema, se vi- 
sualiza en pantalla la aceleración y el movi- 
miento resultante de los dos bloques prismá- 
ticos. 
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Tenemos un primer ejemplo en la figu- 
ra 2, con los datos en unidades del Sistema In- 
ternacional. En este caso el bloque B sube. 
Pero en la figura 3 la masa de B es suficiente 
para vencer el rozamiento y el peso tangen- 
cial de A:B baja y A sube, acelerados a 
3,55 m./s.?. 

¿Cómo se saca un rendimiento óptimo 
al programa? Dejando invariables tres datos y 
variando el restante, para ver su influencia. Es 
lo que se ha hecho en la figura 4. Si siguiéra- 
mos aumentando el coeficiente k, llegaría un 
momento en que el rozamiento impide el mo- 
yimiento, cosa de la que avisa el programa. 


a=1.23 


masa A = 4.7 
masa B=1.2 
rozam. = 0,1 

ángulo = 30 


Centro de masas. Choque elástico. Rozamiento 51. 


Fig. 2. El bloque B sube acelerado. 


a=3.55 


masa Á = 4.7 
masa B =7 
rozam. = 0,1 
ángulo = 30 


Fig. 3. Al ser el bloque B suficientemente pesado, en esta figu- 
ra baja acelerado. 


1. REMXXEAXELERIIK 

2  REM**SPECTRUM*x 

3. REMARARARALERAR 

9. REMARALAELEREERI RRA AR 

5. REM**ROZAMIENTO EN PLANOS** 

6 REMERA EXE NE XK EEN EXXEXIXES 

10 INPUT "angulo del plano (0-60>";4 
20 IF -AX0D OR A>$0 THEN GOTO 10 

30 BORDER 4 :CLS 


40 LET B=Ax*PI/180:LET C=TAM B:G0SUB 400 


50 LET K=120:LET P=14:LET S=1 
57 REM kerer rex R re rRxEXr 
58 REM- bucle principal 

59 REM FHALAEELAAEARENLERK 


Fig. 4. 


A este respecto se nos presenta una pe- 
queña incongruencia: el coeficiente k es diná- 
mico y, sin embargo, es posible que no haya 
movimiento. Se elimina tal incongruencia si te- 
nemos en cuenta que el coeficiente estático, o 
sea, sin movimiento, es mayor que el dinámi- 
co. Por tanto, si la fuerza de rozamiento es ca- 
paz de impedir el movimiento con un coefi- 
ciente pequeño, tanto más con uno grande. 

Como caso particular tenemos la figura 
5, con un ángulo de plano igual a 0 grados. En 
este caso, el bloque prismático A se dibuja 
como un paralelepípedo, pudiendo solaparse 
el dibujo al principio del movimiento, Si en 
este caso haces 0, el coeficiente de rozamien- 
to, se da el sorprendente hecho de que B, por 
ligero que sea, es capaz de arrastrar a A, por 
pesado que sea. Es lo que predice la teoría, 


en ausencia de rozamiento. 


masa A=4 
masa B=1 
rozam. = 0.1 
ángulo = 0 


$0 

70 

30 

70 

100 
110 
145 
120 
125 
130 
140 
150 
297 
298 
299 
300 
angulo="¡AT 
310 
400 
410 
420 
430 
440 
450 
497 
478 
479 
500 
510 
520 
525 
B> 

530 
5490 
550 
560 
597 
592 
599 
£00 
$02 
£05 


IF T=0 THEN GOSUB 400 
IF T=1 THEN GOSUB 300 


PRINT AT 0,10;"a=";INT (G*100)/100 
LET H=G 
IF H>2.1 THEN LET H=H-1:GOTO 130 


PAUSE 40:¿NEXT T:STOP 

REM AXEXALLELL ELLA 

REM impresion de variables 
REM RXAHALLLL ALE RR 


16,254 

PAUSE $0: RETURN 

PLOT 150,140:DRAW 0,-140 
FOR X=150 TO 0 STEP -1 


PLOT X.Y:NEXT  X 
PLOT 150,140:DRAW 15*C0S B,15*SIN E 


REM dibujo prisma 


DRAW -10*SIN B,INT (10x*C0S B) 
IF A=0 THEN DRÁAW 0,-1 


IF A=0 THEN DRAl 0,1 
DRAW 10,0 


REM AXALEXKLALELEN EEE RAR 


REM entrada de datos 
REM HXALKLEEEANENEL RE E RARARA 


1F T=1 THEN RETURN 
INPUT "masa AfKa) 
610 INPUT "masa BíKo) "¿N 


FOR T=0 TO 40: 1F K<1 OR K>140 THEN END 
PLOT 150-Kx*C0S B,140-K*SIN B:GOSUB 500 
PLOT 159+15*C0S B,140+15*SIB B:DRAW 0,-P 
DRÁW 3,0:DRAW 8,-S:DRAW -22.0;DRAW 8,8:DRAW 3,0 


LET L=Hx*xTx*T/2:LET K=K-L*S:LET P=P+LxS 


PRINT AT 3,25;"masa b=";¡AT 8,25;N AT 11,25;3"rozam.="; 


IF T=1 AND S=-1 THEN PRINT AT 7,173"4"; AT 20,24;"B" 


AT 12,255R; AT 15,25;" 


LET Y=Cx*(x-1507+190:IF Y<0 THEN GOTO 4340 e 
CIRCLE 150+15*C0S B,140+15*SIN B,?9:RETURN 

REM XEXEXELERAELA LE LEE EEE ERA RRRR 

REM EFEXERAEREENEE EEE ARE RE AAA AER 

IF T=0 THEN DRAW (kK+15)*C05 B,(K+15)xXSIN B:DRÁAW -<K+15)xXxC05 B,-(K+15)xSIN B 
1F T=1 AND S=-1 THEN DRAW 27*C0S B,INT(27*SIN B)>:DRAW -27*C0S B,-INTC27XASIN + 


IF S=-1 THEN DRÁW (13*C0S5 B.C1)*SIN B:DRAW -(1)*C0S BE,-C1)*SIN B 


DRAW 0,4/15-10*C1+TAN BxC1+SIN B)):RETURN 


PAUSE 20:PRINT AT 3+K*SIN B/8,20-K*C0S B/8;"a" ¡AT 6,24;"b" 


615 INPUT "coef.rozam.”";R 

$25 IF N3M*SIN B+MERXCOS B THEN LET 6=>.810001%*(N-Mx*SIN B-MÉR*COS B)/(M+N)>3LET S 
=1 ¿RETURN 

630 IF N<MASIN B-M*R*COS B THEN LET 6=79.810001*(M*SIN B-N-M*R*COS B)/(M+N):LET S 
=-1:LET K=12:LET P=135:CLS:GOSUB 400:RETURN 


£40 PRINT AT 10,13;FLASH 1;"el rozamiento impide el movimiento” :END 

700 REM AREXLHLELELERELERREL ELE LEE AER 

710 REM **VARIACIONES PARA 1.B.M.-AMSTRÁD:x* 

715 REM AXEREXEXELENEL ELE ARAAERRR 

720 REM sustituir plot por pset , draw por line -— step ,border por screen 1l,pa 
use por un bucle vacio tfor t=1 to 10000:nmext ¡>,primt at por locate fila,column 
a ? 

730 REM en las funciones trigonometricas los parametros deben ¡ir entre parentesi 
sel flash por color 16,1,0 


740 REM las variaciones de graficos en commodore se hacen segun mapa de memoria 


con peek y poke 


2 Comentario del programa 


Líneas 10 y 20,. introducción del ángulo 
(máximo de 60 grados). 

Línea 30, pone la pantalla en modo grá- 
fico. 

En línea 40, conversión de grados a ra- 
dianes. 

Líneas 57 a 150, dibujo del plano, polea, 
etcétera. 

Líneas 297 a 310, impresión de variables 
en pantalla. 

Líneas 400 a 450, dibujo del círculo. 
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Líneas 497 a 560, dibujo del prisma. 
Líneas 597 a 640, introducción de datos. 


MATEMATICAS 


T Raíces reales de una ecuación 
f(x) = 0 por bipartición 


Si una función continua en un intervalo 
toma valores de distinto signo en sus extre- 
mos, la función se anula en algún punto inter- 
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medio (teorema de Bolzano). Vamos a hallar 
por bipartición del intervalo ese punto (al me- 
nos uno) en que se anula. 

En general, lo que se calcula es un va- 
lor aproximado, con un error menor que un nú- 
mero E fijado previamente. 

Supuesto que se verifica la condición 
expuesta en el intervalo (X1, X2), el procedi- 
miento es sencillo, 


X1 X0 /|X2 


1 REM*x] .B.M-AMSTRAD-MSXxXx% 
Z REMAXAAAHAEREALAR ERA ES 


En la figura se representa una función 
Y =F(X) siendo F(X1) negativo y F(X2) positi- 
vo. Tomamos el punto medio del intervalo (X1, 
X2) y vemos el valor de la función en ese pun- 
to F(X0). Si es cero, hemos encontrado una raíz 
y el problema termina. Si F(X0) no es cero, en- 
tonces, de entre los dos segmentos en que se 
ha dividido el intervalo, elegimos aquél en 
que la función toma valores de signo contrario 
en sus extremos. Así sucesivamente, hasta que 
la longitud del intervalo sea menor que 2E. To- 
mando ahora X0 como valor aproximado de la 
raíz, cometemos un error menor que E. 

No es seguro que en algunas de las su- 
cesivas biparticiones podamos dar exacta- 
mente con la raíz :f[(X1 + X2)/2] = 0. Lo que sí 
es seguro es que cada vez nos acercamos más 
a ella; hasta tener la raíz acotada en un inter- 
valo [X1-X2] muy pequeño. Tomando enton- 
ces su punto intermedio como raíz, cometemos 
un error menor que (X1-X2)/2. 

Apoyándonos en estas ideas haremos 
un programa que nos permita hallar raíces 
para una ecuación dada. Una de las múltiples 
soluciones podría ser: 


S REM EXAREXEAEAAEN ANEXA LEER RR 


10 REM calcular raices por biparticion 


15 REM EXXEXEXXEEXENA EA ERE EA EEE 


20 CLS 
30 FOR I=1 TO 4 
40 PRINT ¿NEXT 1 


S0 PRINT"pulse LIST 130 y ponga la funcion” 
70 PRINT"pulse RETURN y a continuacion RUN 90” 


380 STOP 

0 CLS 

100 INPUT "introduzca extremos del 
1 110 INPUT "error minimo... 

120 FOR I=1 TO 10:PRINT:¿NEXT 1 

130 DEF FNYOO= 3X+2 

14D LET Y1=FNYCXIO :LET Y2=FNY(X2> 


¡0 a x2 


., 150 IF FNY<xX13=0 THEN PRINT "hay una raiz en”;X1:G0TO 250 
160 IF. FNY<x23=0 THEN PRINT*"hay una raiz en”;¡X2:G0TO0 250 


170 GOSUB 300 
130 LET X0=cX1+Xx2>/2 
190 LET YO=FNYX<xX0> 


200 1F YO=0 THEN PRINT"hay una raiz en”":X0:G0TO 250 
210 IF ABS(X2-X1)<2*E THEN PRINT X0;"es raiz con error menor que”";E:GOTO 250 
220 IF SGNCFNYC(X13>=SGNCYD)> THEN GOTO 240 


230 LET X2=X0:G0T0 180 
240 LET Xi=X0;G0TO 180 
250 END 


300 REM Subrutima para controlar e cambio de signo 


310 IF SGN(Y1><>SGN(Y2)> THEN GOTO 400 
320 LET L=X2-X1 

330 FOR I=xX1 TO 1000 

340 LET C=X1+L*RND 


350 IF SGNCY1)<>SGNCENYCC>) THEN GOTO 390 


360 NEXT 1 


370 PRINT"no se encuentra cambio de signo" 
380 PRINT"es posible que no haya raices" :GOTO 250 


390 LET X2=C 
400 RETURN 


Ed Comentario 
del programa 


El programa está dividido en las si- 
guientes partes: 


1. Presentación, instrucciones y entra- 
da de datos (líneas 10-110). 


2. Se comprueba si alguno de los ex- 
tremos es la raíz de la ecuación. Líneas 
150-160. 


En caso de que ninguno de los extre- 
mos sea raíz: 


3. Estudio del cambio de signo (subru- 
tina 300). 


Si los extremos cumplen la condición 
del teorema de Bolzano, nos salimos de la sub- 
rutina y el programa continúa. En caso con- 


y 


SOCIEDAD 


ll Evolución de la población 


La población de una ciudad ha evolu- 
cionado de la siguiente forma: 


tons 1238400 e ot 2362057 
IO 1401017 IRSVSAOELS Ae 2116366 
M7 1580880 LO to: 3123821 
LIO bo 1786055 LO Act 3592394 
(O ratico a vado: 2053963 IO dat 4237525 


El objeto de nuestro programa es repre- 
sentar, mediante un diagrama de barras, esta 
evolución. , 4 

El programa sería el siguiente: 


10 REM AXEXERREAEIRELERARANERARERR 

20 REM *XELOLUCION. DE- LA POBLACION* 

30 REM XERAL NEREERA LEN EEES 

32 CELS : 

35 PRINT “REPRESENTACION DE LA EVOLUCION" 
49 PRINT "DE LA POBLACION DE UNA CIUDAD" 


Fig. 7. 


trario, hay que buscar un punto C en el inte- 
rior del intervalo (X1, X2] tal que el intervalo 
[X1, C] sea válido. 


Para ello, se podría dividir [X1, X2] en 
un número elevado de partes, 100 ó 1.000 y ver 
los valores de la función en los puntos inter- 
medios. Pero este procedimiento es menos 
rentable que obtener números aleatorios com- 
prendidos entre X1 y X2 .En efecto, en la figu- 
ra, la función cambia de signo entre las divi- 
siones 850-950. Habría que comprobar como 
mínimo los 850 primeros números para obser- 
var un cambio de signo. En cambio, la proba- 
bilidad de obtener un número aleatorio en ese 
intervalo es 1/10. 


4. Por último, si hemos obtenido el in- 
tervalo adecuado, se busca la raíz en ese in- 
tervalo (líneas 180-250). 
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50 PRINT "MEDIANTE DIAGRAMA DE BARRAS" 
$0 PRINT:PRINT ; 

70 PRINT "PARA VER EL DIAGRAMA PULSE" 
30 PRINT "RETURN" 

90 INPUT AS 

110 CLS 

120 LET M=0 

130. FOR I=1 TO 10 

140 READ A(1I»,PcI> 

150 1F PCI)>M THEN LET M=PCE)> 

160 NEXT 1 

170 REM **REPRESENTACION DEL DIAGRAMAx* 
180 FOR 1=1 TO 10 

120 PRINT:PRINT:+PRINT ACI): 

200 LET C<1)>=INT(PC1)%39/M+.5) 

210 FOR J=1 TO, CCI> 

220 PRINT"*"; 

230 NEXT J 

240 NEXT 1 

250 DATA 19235,1238900,1790,13901107 
260 DATA 1945,1580880,1750,172é055 
270 DATA 1955,2053963,17960, 2262057 
280 DATÁ 17965,2716366,1970,3123821 
290 DATA 1975,3592394,1980,4237525 
300 END 


ano 
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ij Comentario del programa 


El año y la población están recogidos en 
las variables con subíndice A(I) y P(D), respec- 
tivamente, donde l <=1<=10, 

Para elegir la escala, asociamos al valor 
máximo, que designamos por M, las 34 casillas; 
luego a un número N de habitantes le hace- 
mos corresponder: 


N*34/M 
Como geralmente saldrá un número 


fraccionario es necesario redondear las unida- 
des mediante la sentencia: 


S = INT(N*34/M + 0.5) 


El número de casillas asociado a la po- 
blación P(I) se guardará en la variable C(). En 
el ciclo 130-160 leemos los años y las poblacio- 
nes correspondientes, y a la vez determina- 
mos el valor máximo de la población, median- 
te la instrucción de la línea 150, valor que 
guardamos en la variable M. 

En la línea 190 se imprime el año A() y 
en la 200 se hace el cambio de escala. 

A continuación imprimimos la barra 
correspondiente a la poblacion 1 con las ins- 
trucciones de las lineas 210-230, 


PARA LOS MAS JOVENES 
Mil A la caza del submarino (juego) 


En un casillero de 8 x 8 el ordenador si- 
túa al azar un submarino, fuera del alcance de 
nuestra vista. Vamos lanzando cargas de pro- 
fundidad en diversas casillas. Tras cada car- 
gá lanzada, el ordenador contesta con la dis- 
tancia a la que se encuentra el submarino, me- 
dida en casillas horizontales y verticales. Si la 


1 REM**I.B.M.-AMSTRAD-MSXxXx 

2 REMERA ELE AREA 

10 REM *A LA CAZA DEL SUBMARINO * 
15 REM ARAHAL AAA 
20 GOSUB 300 


30 PRINT"ESTO ES LÁ CAZáÉ DEL SUBMARINO" 


distancia es cero, contesta "HUNDIDO" y mues- 
tra la posición del submarino (*). 

En el programa propuesto hemos esta- 
blecido una subrutina (300-399) para dibujar el 
cuadro de batalla. Para ello, hemos introduci- 
do en tres variables de cadena los siguientes 
motivos: 


MI1$ = "12345678" 

M2s="eee"*" (10 asteriscos) 

M3$="" * (8 espacios con un asterisco a 
cada lado). 


La impresión, en líneas sucesivas, de los 
motivos M1$, M2$, M3$ (ocho veces) y M2$, po- 
niendo delante de cada M3$ el número corres- 
pondiente, produce el recuadro de la figura. 

Con la función TAB se ajustan los moti- 
vos y se centra el dibujo. 

En las líneas 110, 120 y 130 se cargan en 
la variable de índice D$(D) los caracteres *, 1, 
2,3, 4,5, 6, 7,8, 9, A, B, C, D, E, que van a mar- 
car la distancia D a la que se encuentra el sub- 
marino. Como para dicha marca sólo dispone- 
mos de un espacio, las distancias 10, 11, 12, 13 
y 14 son representadas por las letras A, B, C, 
D, y E. 

Comienza el juego a partir de la línea 
140, que remite a la subrutina 300 de repre- 
sentación gráfica. , 

En la línea 150 el ordenador elige al 
azar las coordenadas del submarino. 

Las líneas 160, 170 y 180 sirven para si- 
tuar el cursor en la zona inferior de la panta- 
lla, y preguntar allí las coordinadas de la zona 
del disparo. 

Desde la 190 a la 220 se calcula la dis- 
tancia D, y se imprime en la casilla correspon- 
diente. En la 230, si la distancia no es cero, se 
repite el disparo, y si es cero se imprime 
'"HUNDIDO”, borrando previamente con espa- 
cios la línea en la que hemos estado poniendo 
las coordenadas. Y el juego finaliza. 


40 PRINT"SE LANZA UNA CARGA DE PROFUNDIDAD" 

50 PRINT"ESCRIBIENDO EL NUMERO DE LINEA Y EL DE COLUMNA SEPARADOS POR COMA" 
$0 PRINT:PRINT"EN LA ZONAS CORRESPONDIENTE APARECE” 

70 PRINT"LA DISTANCIA A LÁ QUE SE HALLA EL" 

30 PRINT"SUBMARINO MEDIDAS EN CUADRADITOS HORIZONTALES Y VERTICALES” 

90 PRINT:PRINT*PARA EMPEZAR EL JUEGO PULSA RETURN” 


100 INPUT As 
110 DIM D$c14> 
120 FOR 1=0 TO 14:READ D$£I>:¿NEXT 1 


130 
140 
145 
147 
150 
160 
170 
130 
170 
200 
210 
220 
230 
2340 
250 
260 
270 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
395 
399 


GOSUB 300 
RANDOMIZE 
LOCATE 12,1:;PRINT" 


LOCATE 1,1 

FOR I=1 TO 20:PRINT:NEXT 1 
INPUT "LINEA, COLUMNA" L,C 

LET D=ABStX-L>+ABS(Y=-C) 

LOCATE 1,1 

FOR I=1 TO L+1:PRINT:NEXT 

PRINT TAB(C+12);DéC(D) 

IF. D<>0 THEN LOCATE 21,1:PRINT" 

LOCATE 1,1 

FOR I=1 TO 20:PRINT:NEXT 1 

PRINT" 

END 


Mi$="12345678” 
MEESUERALAREEK" 
M3+="x en) 
CLs 

PRINT TABC13)M1S 
PRINT TAB(12);M2$8 
FOR I=1 TO 8 
PRINT TAB(9);I;TABC12) ¿M38 
NEXT 1 

PRINT TAB(12);¡M2+ 
RETURN 


Nota 


Modificaciones a los programas para 
Spectrum y Commodore 


SPECTRUM 


Donde figure:: 

"LOCATE X, Y” sustituir por '“PRINT AT 
X, Y” siendo X, Y los números de fila y colum- 
na respectivos. 

“END” sustituir por “GOTO 9999”. 


DATA X,1,2,3,4,5,6,7.8,9,M,B,C,D,E 
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LET X= INT(SERND(8)+1) :Y=INTCBIRND(8) +1) 


"GOTO 140 


HUNDIDO” 


REM***SUBRUTINA DE REPRSENTACON GRAFICA” Me 


COMMODORE 


Donde figure: 
“"CLS” sustituir por “PRINT CHR$(143)”. 


AMSTRAD 


Donde figure: 
"“LOCATE X, Y sustituir por “LOCATE 
YA xY 
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El El valle del Silicio (II) 


IEMPRE que se piense en el 
valle del Silicio debe recor- 
darse a Frederick Terman. 
El fue, si no su creador, al 
menos su impulsor más con- 
vencido. 
Se preguntará el lec- 
tor en qué colaboró este 
científico, que fue, desde luego, un magnífico 
profesor de Universidad, pero que no destacó 
de forma estelar como muchos otros, ni evi- 
dentemente obtuvo el Premio Nobel en ningu- 
na disciplina. 

La principal cualidad de Terman fue 
probablemente su magnífica entrega a la do- 
cencia. Se puede ser un buen profesor, y en- 
señar con claridad a los alumnos, pero tam- 
bién, por el contrario, se puede ser otro tipo 
de profesor vocacional. En este tipo de profe- 
sores, su misión no consiste únicamente en en- 
señar bien, sino en formar a los alumnos, 
ejercer un cierto papel de padre protector y ca- 
nalizador de esfuerzos. Y todo esto debe ha- 
cerse sin esperar una recompensa especial, 
porque no se trata de un trabajo, sino que es 
una vocación (léase diversión). Eso fue Ter- 
man. Y a esas cualidades vocacionales se unió 
un espíritu pragmático que no concebía sepa- 
taciones entre los estudios, la preparación 
para un trabajo y la realización de dicho tra- 
bajo. Para él, la Universidad no podía estar 
desligada de la empresa. Una y otra se com- 
penetraban. La investigación en la Universi- 
dad debía cubrir necesidades y objetivos em- 
presariales, y a su vez, los empresarios debían 
nutrirse del enorme potencial humano de la 
Universidad, aprovechando los hallazgos rea- 
lizados por los investigadores. 
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A nuestro entender, ese fue el logro de 
Terman: La creación de una amalgama empre- 
sa-Universidad, que junto con una inquebran- 
table voluntad le hacía ganar las batallas, por- 
que los Malos Hados llegaban a aburrirse de 
ponerle cortapisas. El valle de Santa Clara se 
convirtió en el valle del Silicio debido a mu- 
chas pequeñas circunstancias favorables, 
pero la principal probablemente sea la indo- 
mable voluntad, vitalidad y falta de desánimo 
de Frederick Terman. 

Este valle ha acumulado entre su her- 
mosa vegetación la mayor concentración de 
sabiduría humana jamás conseguida. En una 
hipotética línea que uniera Los Angeles, San 
Francisco y San Diego, se encuentra el 60 % 
de los científicos de peso a nivel mundial. Dos 
de cada tres premios Nobel viven en la zona. 
Sus Universidades (Stanford, Berkeley y Cal- 
tecch) se encuentran entre las más prestigio- 
sas del mundo. La renta "per cápita" es la más 
alta de los Estados Unidos, y la población es, 
en su mayor parte, bastante joven (la mitad tie- 
ne menos de cuarenta años). La creatividad 
potencial de sus habitantes hace que puedan 
ofrecer sus ideas a una empresa, o financia- 
dor, pudiendo hacerse ricos en menos de cin- 
co años si la idea es suficientemente original. 
En suma, es el valle de la creatividad. 

Naturalmente, Terman no ha sido el ar- 
tífice único de todo lo obtenido, pero sí le po- 
demos atribuir, sin por ello exagerar, que ha 
sido el creador del embrión, 

Terman nace en 1900 en un pequeño 
pueblo de Indiana, y es educado por su padre, 
un eminente psicólogo, siguiendo unas teorías 
de educación natural de Rousseau. Y, fiel a 
una de ellas, no fue a la escuela hasta que tuvo 
diez años. Su padre era un investigador bastan- 
te innovador (a él se deben los tests de inteli- 


gencia Stanford-Binet). El Terman adolescen- 
te vivió en un ambiente universitario libre y 
algo provinciano. La familia se había traslada- 
do a Stanford, donde su padre era profesor, y 
fue en esta Universidad donde Frederick de- 
cidió estudiar Ciencias Químicas. Como cual- 
quier muchacho cuya familia dispusiera de 
medios económicos suficientes, Terman mar- 
chó a seguir estudios al Este, al MIT (Massa- 
chusetts Institute of Technology). Allí (por el 
momento todo le iba bien) fue alumno predi- 
lecto de uno de los científicos más considera- 
dos del momento, Vannevar Bush, que le ofre- 
ció un puesto de profesor en el propio Institu- 
to. Sin embargo, la vida de Terman iba a com- 
plicarse enormemente. En 1924 vuelve a la 
casa de sus padres para pasar el verano, y a 
partir de ese momento su salud va a sufrir ta- 
les quebrantos que casi estuvo a punto de mo- 
rir. Sólo su enorme fuerza de voluntad, o tes- 
tarudez, lo sacaron de la situación. Primero 
tuvo tuberculosis, y, además, en un grado 
avanzado, estando muy afectado. Por si no era 
suficiente, estuvo a punto de morir de perito- 
nitis y tuvo problemas en los ojos. Todas estas 
calamidades le obligaron a pasar más de un 
año en cama. El tiempo que tuvo que estar pos- 
trado no fue en absoluto desperdiciado por el 
joven químico. Lo aprovechó para leer y ex- 
perimentar en radio, tema de vanguardia en 
aquellos años. Al final de su enfermedad, su 
padre le consiguió que le ofrecieran unas cla- 
ses de Ingeniería de la Electricidad en Stanford. 
Eran dos horas de clase diarias, y dada su si- 
tuación física, Terman debía permanecer el 
resto del día en la cama. 


Para el año 1937 ya era director del De- 
partamento de Ingeniería de la Electricidad 
de Stanford, y estaba totalmente integrado en 
su Universidad. Su trabajo le apasionaba y co- 
laboraba y experimentaba con sus alumnos en 
el laboratorio, e incluso en su casa, donde te- 
nía montado un pequeño taller. Ya hemos ha- 
blado de sus relaciones con Hewlett y Packard 
(dos de sus mejores alumnos). Terman comen- 
zó a sufrir entonces a su alrededor el fenóme- 
no de la fuga de cerebros. Todo muchacho 
que quisiera "hacer carrera" debía marcharse 
al Este, donde estaban las grandes empresas 
(Bell, etc.), que ofrecían más oportunidades de 
futuro. Terman era un entusiasta de su valle, 
de la Universidad, del calor y naturalidad de 
sus habitantes, e instaba a sus alumnos a ayu- 
dar a crear un clima tal que se fueran crean- 
do puestos de trabajo en la propia zona. Para 
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¿Sabía usted que... 


¿Sabía usted que en San Francisco el Consu- 
lado de la URSS tiene cerca de doscientos diplomá- 
ticos, casi tantos como la propia Embajada en Was- 
hington? 

La actividad de muchos de ellos es simple- 
mente espionaje industrial. Es posible que haya pro- 
soviéticos infiltrados en las compañías, pero no se 
trata de llegar a esos extremos. Para la mayoría, su 
trabajo consiste en suscribirse a revistas, frecuentar 
librerías técnicas, apuntarse a seminarios y otros ac- 
tos académicos y, en general, entrar«en contacto con 
nuevos investigadores pertenecientes al equipo de 
algún investigador importante. Si llegan a tratar con 
alguna frecuencia con un investigador interesante, le 
ofrecerán revistas o libros, y también algunos artícu- 
los sobre sus trabajos. Es el momento de preguntar 
por las investigaciones del otro, que amablemente 
accederá (naturalmente, si su naturaleza no es de ab- 
soluto secreto), 

Sólo con las revistas y libros que aparecen ya 
se pueden elaborar dossiers interesantes. Como las 
innovaciones en electrónica e informática son tan rá- 
pidas, ciertas informaciones novedosas ya no lo son 
tanto para los fabricantes y, por tanto, constituyen 
material publicable. 


lograrlo, él creía en una interrelación conti- 
nua, un flujo bidirección de información y co- 
laboración entre empresa y Universidad, 


A raíz de la Segunda Guerra Mundial, 
su antiguo profesor del MIT (Massachusetts 
Institute of Technology), reclutado por el go- 
bierno de Roosevelt para tareas de investiga- 
ción de la Defensa, le llama para dirigir un la- 
boratorio de investigación de radio, también 
ligado a la Defensa. En un año Terman orga- 
nizó a unos 800 jóvenes que trabajaban en ab- 
soluto secreto. Las investigaciones sobre ra- 
dar fueron desde luego muy rentables, y sal- 
varon muchas vidas humanas. 


Pasada la guerra, Terman vuelve a 
Stanford con muchas ideas. Ha colaborado con 
otros científicos del Este y ha aprendido cómo 
se canalizan los recursos obtenidos para in- 
vestigación en otras universidades, entre ellas 
Harvard, La idea es patrocinar pequeños tra- 
bajos de investigación, en los que participen 
uno o dos profesores y varios alumnos beca- 
dos, frente a los grandes proyectos, que supo- 
nen a veces un despilfarro económico. Ter- 
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man vuelve a Stanford a poner en práctica 
todo lo aprendido; sacando dinero de donde 
no hay (los recursos de esta Universidad son 
cortos frente a otras que han colaborado más 
efectivamente en la defensa del país). 

Otra vez afincado en Stanford, Terman 
fue el mejor "relaciones públicas” de la zona. 
Estaba muy relacionado con los empresarios 
que se iban asentando (muchos de ellos eran 
sus alumnos) y además intentaba ayudarles en 
sus problemas. (Por ejemplo, tomó la decisión, 
criticada por muchos, de alquilar parte de los 
terrenos pertenecientes a la Universidad a al- 
gunas empresas que comenzaban entonces a 
trabajar, entre ellas Hewlett Packard. Todas 
estas relaciones crearon una enorme confian- 
za y, por tanto, muchos intercambios entre las 
empresas y la Universidad. Los donativos eco- 
nómicos que ofrecían las firmas (a cambio de 
exenciones fiscales) iban subiendo en progre- 
sión geométrica año tras año, y además con las 
rentas de las empresas instaladas podían cu- 
brir los gastos de la escuela. 


Berkeley es otra de las Universidades 
próxima al valle del Silicio. En ella trabajaba 
Ernest Lawrence creando las bases de lo que 
sería más tarde el ciclotrón. Este acelerador 
de electrones, que se utilizaría para bombar- 
dear y abrir por primera vez el núcleo de un 
átomo, le valió al profesor Lawrence (Ernest) 
el Premio Nobel en 1939. Las aspiraciones del 
equipo de Lawrence eran explorar la materia 
(desde luego no parece probable que se le 
ocurriera aprovechar la fisión nuclear con fines 
belicistas). Sin embargo, el profesor Oppen- 
heimer, uno de los padres de la bomba atómi- 
ca, perteneció al equipo de Lawrence. 


(Olvidemos la bomba atómica y recor- 
demos otra aplicación del ciclotrón más al- 
truista y tonificante para el espíritu): John Law- 
rence, hermano de Ernest Lawrence, utilizó un 
sistema basado en el ciclotrón para elimina- 
ción de células cancerosas, 


¿A qué se debió que California resur- 
giera tan espectacularmente después de la 
Segunda Guerra Mundial? Es muy posible que 
su renacer fuera causado precisamente por la 
guerra. No debemos olvidar el desastre de 
Pearl Harbor, que dio lugar a la intensa acti- 
vidad bélica en el Pacífico. Como California 
era eminentemente una zona agrícola, no dis- 
ponía apenas de industria de apoyo de arma- 
mento, y fue preciso crearla (naturalmente, 
mediante modernas instalaciones). Además, la 
industria aeronáutica también estaba asenta- 
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da en la zona, probablemente porque el actual 
magnate de la aviación, Joe Douglas, comenzó 
su actividad pidiendo dinero a otro pionero de 
la región, el "Terman de Los Angeles”, Joe 
Chandler. De este “dictador”, Douglas obtuvo 
además del dinero una lista de otros posibles 
"donantes". Algo más al norte en la región se 
habían ido creando astilleros, que iban cre- 
ciendo año tras año en el número de tonela- 
das construidas. Las necesidades bélicas del 
país favorecieron muchísimo la economía de 
la zona. 

En Stanford se reúnen ciento setenta de 
los más poderosos hombres de negocios de los 
Estados Unidos, y algunos de otros países. Se 
trata de la reunión de la “Business Roundtable”, 
verdadero grupo de presión norteamericano. 


¿Sabía usted que... 


¿Sabía usted que las grandes compañías de 
Electrónica e Informática no sólo han sido creadas 
por grandes nombres, sino que han “producido” 
hombres notables? 

Uno, especialmente conocido, al margen de 
opiniones sobre su persona, creó su popularidad y 
sedimentó su personalidad como hombre público en 
la gran General Electric. Nos referimos al presiden- 
te de los Estados Unidos, Ronald Reagan. 

Todo el mundo sabe que el presidente Ronald 
Reagan fue actor en su juventud. Lo que no saben 
muchos es cómo se interesó por la política y cómo 
pasó a tomar parte activa en ella. Ronald Reagan lle- 
va ya casi veinte años en puestos políticos de enor- 
me responsabilidad. En 1967 juró su cargo como go- 
bernador de California. Estaba recogiendo su fruto. 
La semilla la había echado a la tierra durante los 
ocho años en que trabajó para la General Electric. 
Sus cualidades de orador hicieron que esta firma lo 
contratara para recorrer las distintas factorías, como 
relaciones públicas. Su misión consistía en conocer 
los problemas de los empleados de las distintas fac- 
torías y, al mismo tiempo, hacerles llegar mensajes 
de la dirección. Sus cualidades de orador y las amis- 
tades de personajes influyentes que había hecho du- 
rante su etapa en el cine hicieron que fuera apoya- 
do por muchos de ellos, avanzando hasta llegar a ser 
gobernador de California. Conservador y convenci- 
do de sus ideas sin fisura alguna, Reagan ofrecía la 
imagen de alguien firme que sabe lo que quiere, De 
nuevo esa imagen, sus dotes y sus amigos influyen- 
tes le han aupado hasta la posición más alta en su 
país. 


Esta reunión demuestra la importancia a nivel 
empresarial que va tomando California. 

Pero pasemos a otra época más moder- 
na, a una California rica y en expansión; don- 
de conviven ejecutivos, hippies y gentes de 
todo tipo; y estudiemos a uno de ellos: Alan 
Shugart. Es otro de los hombres clave del va- 
lle. Actualmente, además de dirigir Amstrad, 
es el fundador de Seagate. Estudió Física e In- 
geniería en Redlands (California), y una vez fi- 
nalizados sus estudios comenzó a trabajar para 
IBM, en Santa Mónica, como encargado del 
servicio de mantenimiento de una gama de 
máquinas. De ahí pasó a San José, a un labora- 
torio de investigación y desarrollo, también de 
IBM. Fue en este laboratorio donde Alan se for- 
mó realmente. Estaban desarrollando la me- 
moria RAM. Trabajó también en otros tipos de 
memoria, discos, etc. Su decisión de abando- 
nar la compañía se debió a un traslado a Nue- 
va York, donde no se encontraba en absoluto 
identificado. Como la zona que rodea San 
Francisco tiene una enorme densidad de em- 
presas de electrónica e informática, le fue fá- 
cil encontrar trabajo en Memorex, como vice- 
presidente, encargándose del desarrollo de 
nuevos productos. En 1973 se decidió a crear 
su propia empresa junto con otros amigos, la 
Shugart Associates. El cometido de la empre- 
sa era fabricar drives de discos flexibles. Al 
cabo de dos años existieron discrepancias en- 
tre el equipo que se ocupaba de la financia- 
ción y el equipo técnico, y como resultado de 
todo ello, Alan abandonó la empresa. Estaba 
muy afectado y se dedicó a un trabajo-hobby 
que desde luego no parece muy ligado a la in- 
dustria informática: la pesca del salmón. Pero 
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realmente ese hobby era también un modo de 
vida, y Alan Shugart pasó estrecheces hasta 
que en 1979 uno de sus antiguos socios, que 
también abandonó la firma, le propuso formar 
otra compañía para fabricar dispositivos de al- 
macenamiento de datos de mucha mayor ca- 
pacidad, pero que fueran adaptables para mi- 
niordenadores. La idea era buena, ya que nor- 
malmente esas máquinas utilizan varios drives 
de discos flexibles. Y se pusieron en marcha. 
Fundaron la “Seagate” (Shugart no podía ni 
quería utilizar su propio nombre, porque la 
Shugart Associates seguía existiendo, y, en- 
contró que “Seagate” sonaba parecido). Real- 
mente, la Seagate no está exactamente en el 
valle del Silicio, pero sí consideramos: que 
Alan Shugart es un hombre típico de dicho va- 
lle. Más tarde fundó Amstrad, que estos días 
es uno de los ordenadores más populares del 
mercado. 

En el valle viven muchos otros hombres 
dignos de ser mencionados. Algunos, como 
Alan Kay (vicepresidente de Atari), viven en 
Malibú y tienen su empresa a 700 kilómetros 
de distancia, Alan resulve los posibles proble- 
mas que se pueden presentar a través de ter- 
minales de datos, y con visitas semanales. 
Otros también han sido “fundadores' más de 
una vez, vendiendo sus antiguas empresas 
para comenzar a “dar cuerpo” a sus ideas en 
otra empresa nueva. Otros se han arruinado y 
han vuelto a surgir del desastre. Todos ellos 
constituyen un ejemplo vivo de lo que la vo- 
luntad y la preparación pueden obtener. 

Seguiremos hablando del valle del Sili- 
cio; de los financieros que viven en él, de la 
empresa Apple, etc. 


TEMAS MONOGRÁFICOS DE VANGUARDIA [aa 


El Programación orientada al objeto 


NTRE las numerosas innova-. 


ciones que se están produ- 
ciendo en el campo de la In- 
formática, una de las más 
prometedoras es la modifi- 
cación conceptual de las 
técnicas de programación 
que se está realizando con 
la introducción de la programación orientada 
al objeto. 

Esta modificación consiste en cambiar 
el esquema básico de enfoque de los proble- 
mas, de tal modo que se piense no en un con- 
junto de «procedimientos» (bloques de texto 
de lenguaje de programación que realiza cier- 
tas funciones) que «manejan» o «procesan» da- 
tos (unos datos estáticos: variables o no), Con 
esta nueva concepción, el conjunto de datos 
(llamados objetos) son «dinámicos», es decir, 
realizan funciones sobre sí mismos, cuando se 
les envían ciertos «mensajes» (u órdenes de 
actuación). - 

-, Para realizar este tipo de programación 
se pueden utilizar los lenguajes convenciona- 
les (o algunos de ellos) ligeramente modifica- 
dos (en ciertos casos, la modificación es ma- 
yor). Sin embargo, es más usual utilizar algu- 
no de los lenguajes específicamente desarro- 
llados a tal fin, Estos lenguajes orientados al 
objeto se suelen llamar no-procedurales, en 
contraposición a los lenguajes de programa- 
ción convencionales que están dedicados a 
procedimientos, y que se llaman, por ello, len- 
guajes procedurales. Existen, además, algu- 
nos dialectos de lenguajes convencionales 
(Object Pascal, Objetive C, Object Assem- 
bler...), que incluyen con el lenguaje normal 
(procedural) herramientas suficientes para ha- 
cer una eficaz programación orientada al ob- 
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jeto (o al menos así lo definen sus autores). Por 
último, hay casos (como el NEON) en que, par- 
tiendo de un lenguaje convencional (FORTH 
en el caso ya citado de NEON), desarrollan un 
verdadero lenguaje orientado al objeto. 


Muchos lenguajes de programación so- 
portan este paradigma de proceso que llama- 
mos «procedimiento». Los procedimientos ac- 
tivos actúan sobre los datos pasivos que le son 
pasados. Un ejemplo típico puede ser la fun- 
ción raíz cuadrada que toma un número y de- 
vuelve su raíz cuadrada. 


En un lenguaje muy ligado al tipo de los 
datos, como el Pascal, es típico disponer de 
una versión diferente de raíz cuadrada para 
cada tipo de dato X (normalmente se obtiene 
un resultado con coma flotante). En un lengua- 
je de tipo «late binding» (la «ligazón» de pro- 
cedimientos con datos se realiza «a posterio- 
ri») como el LISP, en el momento de la ejecu- 
ción se detecta el tipo de dato de X, realizán- 
dose las operaciones necesarias para este tipo 
de dato. Esta clase de operaciones genéricas 
son normalmente primitivas restringidas a un 
pequeño tipo de datos, como números, o son 
funciones definidas en los términos de esas 
primitivas. 

Los lenguajes orientados al objeto em- 
plean, por el contrario, una aproximación a la 
programación tipo «centrada en el dato» o 
«centrada en el objeto». En lugar de pasar los 
datos a los procedimientos, es necesario pedir 
alos objetos (datos) que realicen las operacio- 
nes sobre ellos mismos. Para enfatizar esta di- 
ferencia, pondremos algunos ejemplos de un 
lenguaje genérico orientado al objeto de tipo 
Smalltalk. En este tipo de lenguaje el nombre 
del objeto suele ir seguido por: operación y, a 
continuación, seguido de cualesquiera argu- 
mentos; y va terminada (la instrucción corres- 


pondiente) por un punto. Por ejemplo, una ex- 
presión para obtener la raíz cuadrada de x 
tendrá el siguiente aspecto: 


Xx :sqrt. 


Lo que significa es que a x se le pide 
que realice la operación :sqrt sobre ella mis- 
ma. Se dice, pues, que x es el receptor del 
mensaje :sqrt. 

Un ejemplo más complicado puede ser 
la operación producto escalar. El producto es- 
calar de dos vectores unidimensionales x e y 
da como resultado un escalar: 


s :dot y. 


En este caso, se dice que x realiza una 
operación producto escalar sobre ella misma 
y el argumento y. Se puede obtener la raíz 
cuadrada del producto de x e y u y asignar el 
resultado a la variable z. Vemos cómo se reali- 
za: 


z=—(x :dot y) :sprt. 


Se utilizan paréntesis para indicar el or- 
den de evaluación (aunque realmente no son 
necesarios en este caso, ya que se supone que 
se comienza a evaluar de izquierda a de- 
recha). 

Puede ser útil que, antes de continuar 
con estos conceptos, veamos cómo se articu- 
lan los elementos básicos usados en estos len- 
guajes. El objeto al que nos hemos estado re- 
firiendo (por ejemplo x, en el caso de la 
raíz cuadrada) es una instancia de clase. La 
clase proporciona toda la información necesa- 
ria para construir y utilizar objetos de un tipo 
particular: sus instancias. (Por esta razón en 
ciertos casos a una clase se le denomina fábri- 
ca-factory). Cada instancia pertenece a una 
clase, y, a su vez, una clase puede tener ins- 
tancias múltiples (muchas instancias). 

La clase también proporciona almace- 
namiento para los métodos. Los métodos son 
simplemente procedimientos a los que se lla- 
ma enviando selectores a una de las instancias 
de la clase (a lo que también se llama enviar 
mensajes). Los métodos residen en la clase 
para ahorrar almacenamiento, ya que todas las 
instancias de una clase tienen un conjunto 
idéntico de métodos. Estos pueden alojar tem- 
poralmente variables para utilizarlas durante 
la ejecución del método. Esas variables tem- 
porales son muy semejantes a las variables lo- 
cales de los procedimientos de Pascal, en que 
su valor se pierde en cuanto se abandona el 
procedimiento. Cada instancia tiene adjudica- 
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do un almacenamiento para mantener su esta- 
do individual. Este estado se referencia me- 
diante variables de instancia. Las variables de 
instancia pueden ser datos tipo primitiva, 
como, por ejemplo, enteros, otros objetos o am- 
bos, dependiendo del lenguaje. Cada objeto 
dispone de su propio conjunto de variables de 
instancia. Tanto las variables de instancia 
como las temporales pueden ser referencia- 
das libremente, dentro del alcance de un mé- 
todo de un objeto. Pero, a diferencia de-las va- 
riables temporales, el valor de las variables de 
instancia no se pierde cuando se abandona el 
método del objeto. .. 

Los procesos se realizan'enviando men- 
sajes a los objetos; cada mensaje invoca un 
método dentro de la clase del objeto. Normal- 
mente los métodos (en su ejecución) envían 
mensajes a otros objetos, que a su vez invo- 
can a otros métodos, etc., hasta alcanzar el 
punto en el que se invoca el método primitivo. 
En este punto termina la cadena de envíos de 
mensajes. Cada mensaje enviado puede de- 
volver (normalmente devolverá) un resultado 
al emisor (por ejemplo, x :sqrt. devuelve la raíz 
cuadrada de x). El resultado final de todos 
esos envíos de mensajes es normalmente el 
cambio de estado de uno o más objetos. En al- 
gunos casos, sin embargo, el mensaje se en- 
vía simplemente para llamar a una primitiva, 
teniendo un efecto colateral externo con el 
mundo de los objetos, por ejemplo, accedien- 
do a un sistema de ficheros externos o contro- 
lando el hardware. 

Para soportar totalmente la programa- 
ción orientada al objeto, los lenguajes de pro- 
gramación deben tener cuatro características: 
ocultación de la información, abstracción de 
los datos, ligaduras dinámicas y herencia. Exa- 
minemos estas características en detalle y su 
implementación en algún lenguaje procedu- 
ral, para ilustrar por qué son necesarias las 
cuatro características y por qué los lenguajes 
orientados al procedimiento convencionales 
no pueden soportar la programación orienta- 
da al objeto. 


«D Ocultación de la información 


La ocultación de la información es im- 
portante para asegurar fiabilidad y capacidad 
de remodelación de los sistemas de software 
reduciendo las interdependencias entre los 
distintos componentes de este software. El es- 


TEMAS MONOGRAFICOS DE VANGUARDIA (000% 


Código objeto 
del método 1 


Método 1 


Código objeto 
del método 2 


Método 2 


Código objeto 


del método M 


Método M 


Incluida en una superclase 


Incluye varias subclases 


Nombre de los métodos 
N.* de variables de clase 
Datos de la superclase 


variables de instancia 


N.* de variables 
de instancia 
Nombres de las 
Nombre de las 
variables de clase 


DNI 


DATOS D DATOS DE 


LA INSTANCIA LA INSTANCIA 

o_o cmo o | o 
Ss |2s 23128 22135 
CEE CEE 33133 
3 E Salsa Sa Ss 


Instancia A Instancia B Instancia N 


54 


TARA O AAA AAA AO 


tado de un módulo de software está contenido 
en las variables privadas, y sólo es visible des- 
de el interior del rango de alcance del módu- 
lo. Los datos son manipulados únicamente por 
un conjunto limitado de procedimientos. Ade- 
más, como el estado interno de las variables 
de un módulo no es modificable directamente 
desde el exterior del módulo, un interfaz de 
módulo diseñado con cuidado puede permitir 
cambiar las estructuras internas de los datos 
y procedimientos sin que ello afecte la imple- 
mentación de otros módulos de software. 

Los lenguajes más modernos, e incluso 
el FORTRAN, pueden soportar en cierto gra- 
do la ocultación de información. El ISO (stan- 
dard) Pascal es una excepción a notar, ya que 
no permite la declaración de variables estáti- 
cas internas a un procedimiento. 


Ml Abstracción de datos 


La abstracción de datos puede conside- 
rarse un medio de utilizar la ocultación de in- 
formación. Un programador define un tipo de 
dato abstracto, consistente en una representa- 
ción interna más un conjunto de procedimien- 
tos utilizados para acceder y manipular los da- 
tos. El Modula-2 proporciona mecanismos de 
abstracción de datos excelentes. 

El mecanismo de abstracción de datos 
de Modula-2 proporciona cierto grado de pro- 
tección, ya que no dispone de acceso directo 
al estado interno de las pilas (stacks). La pila 


se manipula a través del proceso del módulo, 


y procedimientos de interrogación. Existen, 
sin embargo, unos cuantos problemas con la 
solución del Modula-2. Uno es que los proce- 
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dimientos utilizados por un módulo deben te- 
ner nombre 'únicos' en todo caso, cualificados. 
Por ejemplo, si un módulo utiliza (importa) dos 
tipos de datos abstractos diferentes, Stack-Pila 
y Queue-Cola, deben inicializarse variables 
de esos tipos, y los procedimientos de inicia- 
lización definidos para esos tipos deben tener 
nombres diferentes, como InitializeStack y Ini- 
tializeQueue, o su utilización debe calificarse 
como en StackInitialize y Queuelnitialize. Esto 
último hace que el programa resulte menos 
versátil. 

El lenguaje Ada resuelve parcialmente 
ambos problemas, a través de dos caracterís- 
ticas del lenguaje: un solapamiento de opera- 
dores y unas unidades genéricas de progra- 
ma. El solapamiento de operadores permite 
que el programa utilice varios operadores con 
el mismo nombre. La distinción entre opera- 
dores se puede determinar en el momento de 
compilar examinando los tipos y el número de 
los parámetros, exactamente igual que cuan- 
do se utiliza para añadir enteros o números 
reales en la mayoría de los lenguajes moder- 
nos, Las unidades de programa genéricas per- 
miten la definición de un módulo para utilizar- 
lo con diferentes tipos de datos. La unidad de 
programa genérica es una plantilla que pue- 
de ser parametrizada con tipos actuales du- 
rante la compilación de los programas (utili- 
zando sus capacidades). 

Si usted lo que desea es utilizar la pila 
para almacenar elementos heterogéneos, sur- 
girá otro problema. No será suficiente con la 
solución del momento de compilación, ni del 
solapamiento de operadores o las unidades de 
programa genéricas. La solución es la ligazón 
dinámica (dynamic binding). 


TERMINOLOGIA | 


GLOSARIO DE TERMINOS 
UTILIZADOS EN LOS LENGUAJES 
ORIENTADOS AL OBJETO 


Abstracción de datos. La abstracción de 
datos es una de las cuatro cualidades bási- 
cas que debe tener un lenguaje para ser 
considerado útil para la programación 
orientada al objeto. Consiste en la cualidad 
que tiene el lenguaje mediante la cual el 
programador puede definir un tipo de da- 
tos abstracto independiente de los procedi- 
mientos con los cuales va a ser utilizado este 
tipo de datos. 


Ataduras dinámicas. (Ver Ligazón diná- 

mica.) 

Centrado en el dato, en el objeto. Dícese 
del lenguaje de programación también lla- 
mado dedicado al objeto, en contraposición 
a los lenguajes dedicados al procedimiento. 


Clase. Conjunto de objetos formado por todos 
los que tienen un determinado tipo. Cada 
uno de los objetos incluidos en una clase re- 
cibe el nombre de «instancia» de la clase. 
Las clases pueden ser divididas en subcla- 
ses para un mejor tratamiento de los datos 
y adecuación a los procedimientos defini- 
dos sobre esa clase o subclase. Varias cla- 
ses pueden a su vez ser englobadas en una 
superclase. 


Fábrica. Otra denominación del concepto de 
clase en el que se hace alusión a la cuali- 
dad que tiene la clase de disponer de toda 
la información necesaria para construir y 
utilizar nuevos objetos o instancias de clase. 


Factory. Nombre inglés correspondiente al 
término castellano fábrica. 


Herencia. Una de las cuatro cualidades que 
hacen que un lenguaje sea considerado útil 
para la programación orientada al objeto. 
Mediante la herencia, la subclase de una 
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clase hereda las variables de esa clase y los 
métodos definidos para dicha clase. 


Instancia de clase. Nombre que se da a un 
objeto cuando se quiere subrayar su cuali- 
dad de elemento individual incluido en una 
clase. 


Ligazón. Relación que se establece entre los 

. datos (u objetos) y los procedimientos, fun- 
ciones o métodos que a ellos se refieren o 
que los manipulan, referida básicamente al 
tipo de ese dato, 


—, de última hora (late binding). Ligazón 
que se establece en el momento de la com- 
pilación del programa. 


—, dinámica. Cuando no está establecida 
una ligazón permanente entre los datos u 
objetos y los procedimientos métodos o fun- 
ciones que los manipulan, sino que se esta- 
blece en el momento de ser ejecutados di- 
chos métodos o funciones. 


—, primitiva (early binding). Ligazón es- 
tablecida de un modo permanente, como se 
realizan en la mayoría de los lenguajes pro- 
cedurales. 


Método. Procedimiento o funciones definidos 
para una clase de objetos. 


Mensaje. Llamada a un objeto. Los mensajes, 
junto con los objetos, constituyen el núcleo 
central de un lenguaje de programación 
orientado al objeto. 


Neón. Lenguaje de programación orientada 
al objeto, basado en el conocido lenguaje 
FORTH. 


No procedural. Dícese de los lenguajes de 
tipo declarativo orientados al objeto, en con- 


traposición de los orientados al procedi- 
miento (que son lenguajes convencionales 
procedurales). 


Object Pascal. Objetive C, etc., dialectos de 
los correspondientes lenguajes procedura- 
les, preparados para su utilización en la pro- 
gramación orientada al objeto. 


Objeto. Cada uno de los elementos individua- 
les de información (dato) sobre los que ope- 
ran los métodos, en un entorno de programa- 
ción orientada al objeto. También llamado 
instancia de “clase. 


Ocultación de la información. Una de las 
cuatro cualidades que debe tener un len- 
guaje de programación para ser considera- 
do útil en la programación orientada al ob- 
jeto. El estado de un módulo de software 
está contenido en las variables privadas y 
sólo es visible desde el interior de dicho 
módulo, con lo cual la modificación de otros 
módulos externos no le afecta, y se puede 
mantener la independencia de los diferen- 
tes componentes de un programa. 


Orientado al objeto, lenguaje. Lenguaje 
no procedural en el cual la información 
(dato) toma la forma de objetos organizados 
en clases y superclases. 


Paradigma. Referido a los sistemas de re- 
presentación del conocimiento, ejemplo o 
esquema básico al cuál se adecuan los 
datos. 


Poliformismo dinámico. Cualidad de un 
lenguaje de programación consistente en 
que un mismo mensaje o función puede dar 
resultados diferentes dependiendo del re- 
ceptor actual del mensaje. 


Primitivas. Funciones básicas proporciona- 
das por el propio lenguaje. 

Procedimiento. Bloque de instrucciones que 
realizan una determinada tarea. 


Procedural. Dícese del lenguaje orientado al 
procedimiento, es decir, aquél en que la es- 
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tructura general del programa viene dada 
por los diferentes procedimientos a aplicar 
a los datos. 


Receptor del mensaje. Dato (objeto) que re- 
cibe un mensaje (u orden) y la ejecuta so- 
bre sí mismo con el concurso del (o los) pa- 
rámetro(s) que se le suministran en el pro- 
pio mensaje. 


Selectores. (Ver Mensaje.) 


Smalltalk. Lenguaje de programación orien- 
tada al objeto. Con la definición del Small- 
talk se comenzaron a desarrollar los lengua- 
jes no procedurales orientados al objetó. 


Solapamiento de operadores. Cualidad de 
un lenguaje de programación orientada al 
objeto mediante el cual es posible la utiliza- 
ción de varios operadores con el mismo 
nombre, quedando éstos identificados por 
otras cualidades adicionales, como el méto- 
do en que han sido definidos, etc. 


Subclase. Conjunto de objetos dentro de una 
clase que comparten unos métodos especí- 
ficos. (Ver Clase.) 


Superclase. Conjunto de varias clases para 
las que se puede definir algún método co- 
mún. 


Tipo de datos, lenguaje ligado al. Dícese 
de los lenguajes de programación en que la 
relación entre los procedimientos y los da- 
tos se realiza mediante el mecanismo de li- 
gazón primitiva. 


Variables de instancia. Variables defini- 
das para cada instancia de clase u objeto 
dentro de una clase. Mediante las variables 
e instancias se mantiene el estado de re- 
ferencia del objeto de que se trate. 


Variables temporales o de método. Varia- 
bles definidas en el interior de un método y 
que sólo conservan sus valores en el inte- 
rior del método. Cuando éste se abandona, 
se pierde el valor de las variables tempora- 
les o de método, 


+++ 
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Diádica, operación. Operación que maneja 
dos operandos. 


Diádico, operador Booleano. Operador 
Booleano que tiene dos operandos. Los ope- 
radores diádicos Booleanos son AND, la 
equivalencia, la exclusión, el OR exclusivo 
la inclusión, NAND NOR y OR. 


Dialectos. Variantes de que se dispone en 
las diferentes implementaciones de un len- 
guaje de programación. 


Dicotómica, búsqueda. (Ver Búsqueda 
dicotómica). 


Diferenciador. Dispositivo cuya función ob- 
tenida en la salida es la derivada con res- 
pecto a una o más variables. Red de resis- 
tencia-capacitancia que se utiliza para obte- 
ner los picos de una señal. 


Diferencial, analizador. Un computador 
analógico que utiliza integradores interco- 
nectados para resolver ecuaciones diferen- 
ciales. 


Diferencial, engranaje. En los computado- 
res analógicos, un mecanismo que relacio- 
na los ángulos de rotación de tres ejes, di- 
señado usualmente de tal modo que la suma 
algebraica de la rotación de dos de los ejes, 
es igual a dos veces la rotación del tercero. 
Este engranaje diferencial se suele utilizar 
para sumar y restar. 


Digital. Dato establecido mediante dígitos, es 
decir, representado mediante valores dis- 
cretos, no continuos. En contraposición a 
Analógico. 
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Digital, ordenador. Ordenador que opera 
con valores o datos discretos. En contrapo- 
sición a Ordenador Analógico. 


Digital /Diferencial, analizador. Ordena- 
dor en el que su unidad fundamental es un 
integrador digital, que opera de forma se- 
mejante a cualquier mecanismo integrador. 


Digitalizar. Representar los datos mediante 
valores discretos:a partir de una represen- 
tación analógica, p continua. 


Dígito. Símbolo que representa a uno de los 
enteros no negativos pertenecientes a una 
base de numeración. Por ejemplo, en nota- 
ción decimal, un dígito es uno de los carac- 
teres O a 9. También puede llamarse dígi- 
to a un carácter numérico 


Dígito binario. (Véase Binario, dígito.) 


Dígito de signo. Dígito mediante el cual se 
anota el signo del número. 


Dígito significativo. Dígito utilizado con un 
fin concreto. Normalmente mediante el nú- 
mero de dígitos significativos se especifica 
el grado de exactitud alcanzado. 


Dimensionar. Reservar espacio en la memo- 
ria central para las matrices de variables 


(variables que llevan subíndice o subíndi- 
ces). 


Dinámica, posición de almacenamiento. 
Técnica de almacenamiento en la que la po- 
sición que toman los programas y los datos 
está determinada por ciertos criterios apli- 
cados en el momento en el que son necesa- 
rios. 


Dinámica, programación. En investigación 
operativa, procedimiento de optimización 
de la solución de un problema multiuso, en 
el que se pueden tomar un cierto número 
de decisiones en cada etapa del proceso, En 
contraposición con programación convexa, 
entera, lineal, matemática, no lineal, cuadrá- 
tica, etc. 


Dinámico, almacenamiento. Dispositivo 
de almacenamiento de los datos que permi- 
te a éstos variar con el tiempo, por lo que 
no siempre pueden recuperarse. Los tam- 
bores magnéticos y los sistemas de disco 
son dispositivos de almacenamiento dinámi- 
co permanente, La línea de retraso acústico 
es un sistema de almacenamiento dinámico 
volátil. 


Dirección. Número o nombre que identifica 
las posiciones individuales de la memoria. 
Puede estar contenida en una instrucción, e 
indica en qué posición de la memoria se en- 
cuentra el operando de que se trata. 


Dirección constante. Dirección fija de car- 
ga de un programa. , 


Directo, acceso. En un proceso de obten- 
ción de datos de un sistema de almacena- 
miento, en el que el tiempo de acceso no de- 
pende en absoluto de la posición del último 
dato obtenido ni de la posición del dato. Si- 
nónimo de acceso aleatorio. 


Directo, dispositivo de acceso. Dispositi- 
vo cuyo tiempo de acceso a cualquier dato 
es independiente de la posición en la que 
se encuentre dicho dato. 


Directo, subrutina de acceso. Subrutina 
que debe relocalizarse e introducirse en la 
rutina principal, cada vez que se utilice. 
También se llama subrutina abierta. En con- 
traposición con subrutina cerrada, 


Directorio. Indice en el que se encuentran 
todos los ficheros contenidos en esa memo- 
ria de masa. El directorio está también gra- 
bado en el mismo soporte de memoria (dis- 
co duro, diskettes, etc. que el fichero prin- 
cipal). Además de los nombres de todos los 
ficheros, en el directorio puede aparecer 
también otra información adicional, como 
longitud, fecha de creación, última actuali- 
zación, etc. 


Disco duro. Tipo de memoria externa cuyo 
aspecto físico es circular y rígido. Lleva una 
superficie recubierta por una sustancia 
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magnética. En él se pueden almacenar los 
datos magnetizando selectivamente ciertas 
porciones. Está dividido en pistas y secto- 
res. Tiene una capacidad de almacenamien- 
to muy superior a los discos flexibles. 


Disco flexible. Tipo de memoria consistente 
en una superficie de vinilo recubierta de 
una sustancia magnética. Los tamaños nor- 
males son de 8 pulgadas y de 5 y 1/4 pul- 
gadas y de 3 1/2 pulgadas. 


Disco óptico. Sisterna de almacenamiento de 
disco que no utiliza técnicas magnéticas. El 
sistema de grabación de los datos utiliza, ra- 
yos láser. Tiene una capacidad de almace- 
namiento muy superior a los discos conven- 
cionales. Hasta el momento, sin embargo, se 
utiliza en memorias ROM, sólo lectura, pero 
esta técnica está avanzando mucho. 


Discreto. En contraposición a continuo. Se re- 
fiere a algo que toma valores en escalones 
fijos, y no valores intermedios, En otras pa- 
labras, sólo puede tomar un número finito 
de valores. 


Diseño asistido por ordenador. (Véase 
CAD.). 


Disk Operating System. (Véase Sistema 
Operativo de Disco, y DOS.). 


Display. Presentación visual de los datos. 
Disquete. (Véase Disco flexible.) 


DLE. El carácter data link escape (carácter 
de salida de la-conexión). 


DMA (Direct Memory Access). (Véase 
Memoria de Acceso Directo.). 


Doble conducto, lógica de. En circuitos 
asíncronos, cada variable lógica está repre- 
sentada por dos líneas eléctricas, que con- 
sideradas en su conjunto pueden tomar tres 
estados concretos: cero, uno y no diluci- 
dable. 


Doble precisión. Cuando se utiliza doble ca- 
pacidad de memoria para representar un 
único número. Así se consigue doble preci- 
sión en los números decimales. Normalmen- 
te suele representarse un carácter de doble . 
precisión en dos medias palabras de me- 
moria. 


Doble pulso, grabación en. Grabación 
magnética en la que los bits se almacenan 
en una celda formada por dos zonas de dis- 
tinta polarización. El cero se representa con 
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una celda polarizada negativamente y posi- 
tivamente. El uno, viene representado por 
una celda polarizada positivamente, segui- 
da de negativamente. : 


Documentación. Conjunto de documentos o 
información sobre un programa. Muy impor- 
tante en programas largos, si lo van a utili- 
zar otras personas, o incluso las mismas que 
lo crearon si transcurre mucho tiempo. En 
ella se explican muchos detalles útiles so- 
bre el programa (introducción de los datos, 
modificadores, etc.). Los programas largos 
deben ser autoexplicativos, introduciéndo- 
les instrucciones REM con comentarios en 
los puntos en los que se considere nece- 
sario. 


Documento. Medio en el que se registran da- 
tos, para ser utilizados, por ejemplo, un in- 
forme, un libro, un formulario, etc. Por ex- 
tención, también se puede considerar cual- 
quier registro grabado que pueda ser leído. 


Documento, borde de referencia del. En 


reconocimiento de caracteres, borde del 
documento especificado, tomado como re- 
ferencia para el alineamiento de los carac- 
teres. 


DOS (Disk Operating System). (Véase Sis- 
tema Operativo de Disco.) 
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Dot matrix. (Véase Matriz de agujas.) 


Drive. Unidad de disco o cinta. La parte me- 
cánica de una memoria de disco flexible o 
de cinta, que maneja su funcionamiento. Se 
suele utilizar para designar el dispositivo 
completo, en el que debe introducirse el 
disquete, la cinta magnética o el cartucho. 


Driver. Controlador. Parte del software del 
sistema que controla un determinado dispo- 
sitivo. La CPU para comunicarse con los pe- 
riféricos necesita dos tipos de dispositivos 
unos: físicos (hardware-bus y controlador) 
y otros lógicos (software del controlador). 


Dummy. Se refiere a parámetros o variables 
sin sentido que se colocan en una instruc- 
ción por razones sintácticas (por ejemplo, 
para rellenar un hueco que debería estar 
ocupado por una variable, pero que en el 
caso concreto que se considera no es de 
aplicación). 


Dump. (Véase Volcado.) 


Dúplex. En comunicaciones, cuando existen 
transmisiones en ambas direcciones, de for- 
ma independiente. También se puede utili- 
zar un sistema half-dúplex-semidúplex. 


